NPS ARCHIVE 
1969 

DESENS, R. 

— n i 

COMPUTER PROCESSING FOR DISPLAY 
OF THREE-DIMENSIONAL STRUCTURES 



by 

Robert Bruce Desens 



DUDLEY KNOX LIBRARY 

NAVAL postgraduate school 

MONTEREY, CA 83943-6101 



United States 
Naval Postgraduate School 




THESIS 



COMPUTER PROCESSING FOR DISPLAY 
OF 

THREE-DIMENSIONAL STRUCTURES 



by 



Robert Bruce Desens 






October 1969 



Tkii> document hat, been appnoved ^on public fie- 
leat>e and tale; itt ditViibution it, unlimited. 




klBRATTS 

NAVAL POSTGRADUATE 'SCHOOL 
MONTEREY, CALIF. 93940 



Computer Processing for Display of Three-Dimensional Structures 



by 



Robert Bruce Desens 
Lieutenant, United States Navy 
B.S.E.E., Purdue University, 1961 



Submitted in partial fulfillment of the 
requirements for the degree of 



ELECTRICAL ENGINEER 



from the 



NAVAL POSTGRADUATE SCHOOL 
October 1969 



ABSTRACT 



jls^jsjs.v 



The field of computer graphics applied to three-dimensional space 
is introduced through a discussion of perspective transformations, 
data structure, contour lines, and the problem of hidden-line removal. 
The transformation of three-dimensional coordinates into two-dimensional 
pic t ure - plane coordinates is developed for twelve degrees of freedom, 
allowing the simultaneous movement and rotation of both the object 
under view and the observer. Basic concepts and requirements for the 
structure of data and ideas for the use of contour lines are discussed 
as a relative part of the field of three-dimensional computer graphics. 
An algorithm for the removal of hidden lines is explained for the case 
where the objects under view can be assumed to be constructed of bounded 
p lane surfaces . 
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I. INTRODUCTION 



Visualization in three-dimensional space is difficult for many 
people. If three-dimens iona 1 data is entered into a computer, and the 
computer can subsequently draw a perspective view from any given aspect, 
the visualization problem will have diminished to one of selecting the 
most convenient view or views. 

A. THE PICTURE COMPLEXITY 

A camera in taking a picture will furnish a perspective view of 
whatever lies in front of the lens within the limits of view. Similarly 
a computer can be made to draw a picture of an object about which dimen- 
sional information has been given. 

The actual picture drawn is, of course, dependent on the input 
information, and detail will be reproduced accordingly. If enough 
detail is given--i.e. point by point--a picture quality reproduction 
would be possible. However, when one considers the number of points 
involved, it becomes apparent that the task for point -by- point pro- 
cessing is prohibitive in both storage and time. 

On the other hand, if the information can be reduced to a simpler 
structure, the computer can handle the reproduction with much greater 
ease and considerably less memory. 

B. TYPES OF THREE-DIMENSIONAL DISPLAYS 

Several types of 3-D displays are possible. Characteristics of each 
type are discussed by Vlahos [Ref. 48] and are briefly summarized here. 
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1 . Pseudo 3-D Display 



Pseudo 3-D is a technique to give the illusion of three dimen- 
sions, but only monocular cues are given. The simplest of all pseudo 
3-D displays is the perspective display. Addition of other cues such 
as shadow patterns, line size, motion cues, and brightness would add to 
the three-dimensional effect, but the display would remain a Pseudo 3-D 
dis play . 

2 . Stereoscopic 3-D Display 

Contrasting with the Pseudo 3-D display is the Stereoscopic 3-D 
display. This technique employs binocular cues. Two images are formed, 
with only slight differences between them. The differences correspond 
to the different images that the right and left eyes would see. One of 
the most familiar techniques is to make the images of different colors 
or polarizations and then view the images through special glasses. The 
eyes then give the appropriate binocular effect. 

3 . Volumetric 3-D Display 

In the Volumetric 3-D display, the display device itself is 
three-dimensional and for that reason Volumetric 3-D displays are 
limited in size. The span between the eyes in this case supplies the 
binocular cues. The information being displayed is itself in three 
d ime ns ions . 

C . IMPLEMENTATION 

The assumption made for this study is that objects to be displayed 
will be represented by plane surfaces which are limited by their inter- 
sections with other plane surfaces. The computer operates on the 
describing data entered and computes the lines to be drawn for the 
Pseudo 3-D picture. 



14 



1. The Basic Transformation 



The basic perspective transformation must occur on the points 
or nodes defining the object. Chapter II presents the basic three- 
dimensional transformation and includes a discussion of rotation and 
movement of the object, perspective transformation, offsets from the 
picture center, and a scale factor which is inversely proportional to 
magnification (where a scale factor of 1/2 corresponds to a magnification 
of 1). 

2 . Extension to Include Viewing Plane Movement 

Chapter III extends the results of chapter II to include the 
movement of the viewing plane. The capability introduced here is to 
allow the independent movement and rotation of the object and viewing 
plane. The effect is similar to an aircraft flying around an aircraft 
carrier. The aircraft and ship's motion combine to introduce twelve 
degrees of freedom. 

3 . Storage and Access Requirements 

Whenever data must be entered and stored in a computer to be 
utilized for some computation, a problem exists that generally has 
conflicting requirements, especially when large amounts of data are 
required. Storage in the computer should be kept to a minimum, but 
the data must be easily and preferably quickly available. Storage 
requirements may be reduced by placing or packing more than one piece 
of data in one computer word. Packing allows savings in storage but 
increases the time required to access the data. Chapter IV discusses 
a few basic data structures, finishing with a complex structure used 
to draw with the hidden line removed. The wire frame model is of course 
much simpler and quicker to draw than the object with hidden lines 
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suppressed. Appel [Ref. 2| defines a ratio of the time to draw the 
wire frame model to the time to draw the model with hidden lines 
suppressed and suggests that this ratio is a good mach ine - inde pendent 
measure of the efficiency of the hidden-line removal program. For 
assemblies of planes bounded by line segments and visibility determined 
by point - 1 o-point examination, the time required to draw with hidden 
lines removed is from 100 to 1000 times the time required for the wire 
frame drawing. Appel was able to achieve ratios of from 10 to 20 with 
his method of quantitative invisibility. A definite ratio cannot be 
set for any method since this value will vary with the complexity of 
the drawing and the orientation of the view. The method of Ga limberti 
and Montanari [Ref. 18] follows Appel's method with modifications, and 
should be slightly faster. 

4 . Contour Lines 

A brief discussion of contour lines is presented in chapter V. 
Morse [Ref. 34] gives a formal mathematical presentation of contour lines 
and suggests that as methods for handling contour lines are developed, 
greater usage will ensue in the various branches of engineering. 

5 . Hidden-Line Remova 1 

The hidden-line elemination is discussed in chapter VI using a 
combination of the methods of Galimberti and Montanari [Ref. 18] and 
Appel [Ref. 2] with modifications when they were desirable. The 
algorithm and implementation is discussed in this chapter with 
illustrations for various cases included. 

6 . Summa ry 

A summary is found in chapter VIII with a brief discussion on 
program length and efficiency, as implemented on the SDS 9300 and the 
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IBM 360-67 located at the Naval Postgraduate School. Recommendations 
for future development are also found in this chapter. 

7 . Appendixes 

Appendix A consists of a Glossary to aid the reader in follow- 
ing terminology and conventions developed throughout the various 
c ha pters . 

Appendix B is a brief summary of programming changes necessary 
between the FORTRAN IV of the SDS 9300 and the FORTRAN IV of the IBM 
360. 

Appendix C contains instructions for the use of the program 
written to demonstrate the algorithms developed. 
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II. THREE-DIMENSIONAL PERSPECTIVE TRANSFORMATION 



For the transformation of three-dimensional coordinates into 
pseudo 3-D coordinates, both digital and analog techniques have been 
used. The algorithms examined in this treatment of the subject are 
applicable to either or both methods of implementation. The general 
method as implemented in a mach ine - inde pendent higher-level language 
is examined without regard to hardware. The transformation presented 
here is an adaptation and an extension of the transformation by L. G. 
Roberts [Ref. 29 ] . 

The desired degrees of freedom for the transformation include the 
rotation of the object, the movement of the object, the orientation of 
the viewing plane, and the movement of the viewing plane. This chapter 
will discuss the basic transformation for the rotation and movement 
of the object. The following chapter will extend the transformation 
to include the movement and orientation of the viewing plane. Motion 
of the viewing plane corresponds to motion of the observer. The trans- 
formation will utilize homogeneous coordinates. 

A . THE AXES 

There are three different right-hand orthogonal axes involved in 
the presentation which follows. These axes are the reference axes, 
the object axes, and the viewing- plane axes. A brief description of 
each of the sets of axes will help in understanding the chapter 
dove lopment . 
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1. The Reference Axes 



All movement of the object axes and the viewing plane axes is 

in relation to a set of reference axes. The reference axes are aligned 

with the object axes and the viewing plane axes when no movement or 

rotation is present in either the object axes or the viewing plane axes. 

The reference axes are labeled X_ Y_ , and Z . Figure 1 shows 

Ref Ref R e f 

the three sets of axes in correspondence. 

2 . The Object Axes 

Consider an object located in a coordinate frame with axes u, 
v, and w. Figure 2 shows this set of axes by itself, along with the 
directions of positive rotation. 

Each object or group of objects is considered as if it had its 
own axes about which it must be rotated and which will hereafter be 
called the object axes to distinguish them from those of other co- 
ordinate systems. The order of rotation is important. All rotations 
are obtained by rotating two of the object axes about the third axis. 

Rotation about the w axis is first and is measured by angle a. 
Axis u rotated into axis v defines the positive angle. This rotation is 
measured from the reference axes. Rotation about the v axis is second, 
and this is measured by p. The positive angle is defined by the dir- 
ection of w rotated into u. This rotation is referenced to the rotated 
object axes. Last, rotation of v into w (about the u axis) is the 
positive angle 7 . This rotation is also referenced to the rotated 
object axes. These angular rotations result in Euler angles similar 
to those described by Howe [Ref. 50]. The appropriate direction cosines 
are listed later in this chapter. 
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FIGURE I 

OBJECT AXES, VIEWING-PLANE AXES, AND REFERENCE AXES IN CORRESPONDENCE 




FIGURE 2 

OBJECT AXES AND POSITIVE ROTATIONS 
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3 . Viewing -Plane Axes 



The object axes must now be placed in the coordinate system 
where it will be viewed. This coordinate system will be labeled x, y, 
and z. The relationship between the two systems is shown in Figure 3, 
with the reference axes corresponding in this case to the viewing-plane 
axes . 

The viewing plane is the yz plane at x = 0, with limits of + 1 
in both y and z. Translation is measured in xyz coordinates from the 
xyz origin to the object axes origin. The translation coordinates will 
be called X T , Y T , and Z^. 

The viewer looks into the negative x half-space. The positive 
u axis extends from the origin of the object axes toward the viewer, 
when no rotation and no Y or Z translation is present. 

B. PERSPECTIVE TRANSFORMATION 

After rotation and translation, a perspective transformation is 
made. The focal point is located on the positive x axis. Roberts 
[Ref. 29] makes a comparison to a camera with one difference. The 
focal plane in this case is between the focal point and the object. 

The picture is square in this case, and is centered on the axis which 
also contains the focal point. Figure 4 shows a basic comparison. 

The ratio of the distance between the focal plane and the focal point 
to the distance between the center of the picture and one edge is 
approximately 3:1 or 4:1 for the standard camera lens (i«»e. excluding 
telephoto and wide-angle lenses). For a telephoto effect, the distance 
between the focal point and the focal plane must be increased. Con- 
versely, decreasing the distance yields a wide-angle effect. 
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FIGURE 3 

PLACEMENT OF OBJECT AXES IN VIEWING COORDINATE SYSTEM 




RELATIONSHIPS OF VIEWING PLANE, FOCAL POINT AND OFFSETS 
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C. OFFSET 



It is possible, after taking a picture, to enlarge any section of 

it, centered anywhere in the picture. In the frame of reference used 

here, the distance from the center of the total picture to the center 

of the enlarged picture is measured as a y-offset and z-offset, called 

Y and Z . Figure 4 also shows the offset relationships, 
o o 

D. SCALE 

To control the magnification, another factor is introduced. This 
factor is called the scale. Scale is the normalized distance measured 
from the center to one edge of the picture. For a full size picture, 
scale is equal to 1/2. When an offset is introduced, scale should be 
decreased, giving an enlargement effect for that section of the picture. 
Standard cameras have a ratio of scale :focus in the range of 1:3 to 1:4. 

Another way of looking at scale gives perhaps a better understand- 
ing of its function. The limits in the viewplane were set at + 1, but 
when the limits are multiplied by scale for the usual case, an effective 
change in limits occurs, resulting in new limits of + 0.3. This then 
gives a picture of a normalized size of 1 from top to bottom or from 
left to right. The corresponding angle for a focus located at x = 2 
is + 14 degrees vertically and horizontally from center. 

The picture will always fill the entire focal plane area. If a 
value of 1/4 is chosen for scale, the result will be that the center of 
the picture is enlarged by a factor of two to fill the focal plane area. 

E. ROTATION 

In considering the rotation of the object, two basic choices of 
rotation are possible. The choice is between rotation employing Euler 
angles and rotation about fixed axes. 
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1 . Euler Angles 



Euler angles are employed when the coordinate axes rotate with 
the object. Angles used to measure yaw, pitch, and roll of an air- 
craft are an example of Euler angles. Pitch, for example, is always 
measured in the vertical plane which contains the longitudinal axis of 
the aircraft, and roll is measured about the longitudinal axis. 

Modification of coordinates of a point due to Euler rotation 
can be found by the matrix 



x . y . z . 

1 1 l j 







M- j 



i v V 

i 1 2 

u. 




u 3 i 

f 



V 



where 


(X., 


V 


Z . ) are 
1 


the 


viewing pla 


ne coordinates , 




( V 


V 


w^,) are 


the 


object axes 


coordinates , 


and 


a, 




v ) are 


the 


directiona 1 


cosines for the angle that the 



uvw axes make with the xyz axes. Specifically, the direction cosines 
are 

X^ - cos g cos a 
^2 = cos g sin a 
X^ = -sin g 

LL^ = -cos 7 sin a + sin 7 sin g cos a 
U2 = cos OC cos 7 + sin 7 sin g sin a 
= sin 7 cos g 

= sin 7 sin a + cos 7 sin g cos a 
— -sin 7 cos a + cos 7 sin P sin a 
= cos g cos 7 
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2. Fixed-Axes Rotation 



If rotation is made about a specified inertial or reference 
axes, the rotation will be of the fixed type. Consider the picture 
window view of an object. If rotation is always made in reference to 
the picture window, the axes of rotation (the picture window and its 
perpendicular) are fixed. 

The same matrix can be set up for fixed-axes rotation using 

direction cosines, but the direction cosines will be different in this 

% 

case. The direction cosines can be found by rotation of each angle in 
turn . 



rotation 

by 

a 






rotation 

by 

3 



This is accomplished by 
cos a sin a 0 cos p 0 -sin 3 

-sin a cos a 0 01 

0 0 1 ] sin 3 0 

which in turn simplifies to 



0 

COS 3 



rotation 

by 

7 

1 
0 
0 



Ui U- 






v. 



U, 






1 2 3 

where the direction cosines are now defined as 



\ ^ = cos a cos 3 



= sin OC cos 7 + sin 7 cos a sin 3 
= sin a sin 7 - cos 7 sin fi sin a 



= -cos 3 sin 



a 



1^2 - cos 7 cos a - sin 7 sin 3 sin a 



0 

cos 7 
-sin 7 



0 

sin 7 
cos 7 






:? 



y 
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|j = sin 7 cos a + cos y[ sin 8 sin a 






J 



= sin p 



= -sin 7. cos g 
= cos 7 cos g 
3 . Choice of Rotation 

Both types of rotation have been used for display. It was 
decided that for display of the object, the rotation utilizing Euler 

angles would be the easiest to visualize, provided that the axes or 

$ 

some indication of the axes could be displayed. 

The fixed axes rotation is also needed and is used in another 
context. This will be discussed in the following chapter. 



F. HOMOGENEOUS TRANSFORMATION MATRIX 

By utilizing homogeneous coordinates, the functions of rotation, 
translation, perspective, offset and scale can be combined into one 
matrix. To accomplish this with the rotation matrix, a fourth co- 
ordinate is added to the three -coordinate system and can be considered 
as a variable scale factor. If the original coordinates are 

(X Y Z), 

the new coordinates are 

(X H y H 2 H V ' 

where 



Of course if w = 1, 
H 

may be any positive 



then 

number 



*H * "H X 

y H ‘ V 

Z H ’ W H Z ' 



Xr = X. y H = Y > and Zr = Z . 
, and can handily be chosen 



The 
as a 



factor w 

H 

norma lizing 
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factor when using fixed-point rather than floating-point computers. 



The factor w can be changed for each set of coordinates defining a 
H 

point since the factor cancels when converting to the display co- 
ordinates. Therefore when using a normalizing factor, each set of 
coordinates defining a point can be individually normalized. For 
floating-point operation, the factor is chosen as 1.0 to reduce the 
operations necessary. 

Modifying the rotation matrix for the homogeneous system yields 
the following 4x4 matrix, 



*1 


X 2 


*3 


0 


^1 


U 2 


U 3 


0 


V 1 


V 2 


V 3 


0 


0 


0 


0 


1 



which reduces to the unit matrix if no rotation 

The translation matrix is simply 

w u 0 0 0~ ' 1 0 

H 

0 w TI 0 0 0 1 

H - „ H 



0 0 w 0 

H 



X T y T Z T W H 



0 0 

X,,, Y 

1 T. T 



is present. 

0 0 

0 0 

1 0 



Premultiplying the translation matrix by the rotation matrix yields 



X 1 


^2 


*3 


0 


U 1 


a 2 


U 3 


0 


V 1 


V 2 


V 3 


0 


X T 


y t 


Z T 


1 
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The perspective transformation matrix is 



F 0 0 -1 

0 F 0 0 

OOF 0 
0 0 0 F 



0 



= F 



0 0 
1 0 
0 0 1 
0 0 0 



1 — 
F 

0 

0 ! 



j u u u l 

where F is the distance from the viewing plane (the yz-plane at x 
to the focal point. 



= 0 ) 



The offset matrix is 



1 

j 0 

I 

i 0 

0 



0 

1 

0 

Y„ 



0 

0 

1 



0 

0 

0 

1 



where and are the new centers of the picture. 



The scale matrix is simply 



0 

1 

0 

0 



0 

0 

1 

0 



0 , 

o I 

0 



where S is the measure scale. 

Combining all the functions into one matrix, thus 



[ROTATION] [TRANSLATION] [PERSPECTIVE] [OFFSET] [SCALE] 
yields the H transformation matrix, where 



~ X 1 


VW /F 


VW /F 


-S(X 1 )/F 


Ul 


U 2 -V 0 (u 1 )/F 


U 3’ Z 0^1^ F 


-S ((J 1 )/F 


V 1 


WV /F 


V z o (v i )/f 


-SCv^/F 


_ X T 


Y -Y (X -F)/F 
TOT 


Z -Z rt (X -F)/F 
T 0 T 


-S(X X -F)/F 
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When a point is to be transformed, it must be expressed in homo- 
geneous coordinates. Thus the point (X. Y. Z.) becomes (x. y. z. w TT ) . 

r 1 1 1 l y i i H 

The transformation is then made by pos t -mult ip lying the point matrix by 
the H transformation matrix. Thus, 

[*i *1 z i »„] [ H J = LY V Y "h'J 

where the primes now denote the complete perspective transformation. 



G. DISPLAY COORDINATES 

To obtain the display coordinates, division of the homogeneous 

transformed coordinates must be made by the w 1 coordinate. Thus, 

H 

Y * Y'V 

V - Y'V 

where Y^ f is the horizontal displacement and Z^’ is the vertical dis- 
placement. The coordinate x^ f is an indication of depth and can be 
used for depth cues. 

Since the factor w F appears in every homogeneous transformed co- 
ll 

ordinate, it will eventually be cancelled in arriving at display 
coordinates. There is no change if the factor is set to 1.0 in these 
transformations, and computing time can be reduced by eliminating 
several operations. 
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III. MOVEMENT OF THE VIEWING PLANE 



Previously, movement of the object axes utilizing both rotation and 
translation was accomplished. Related to the movement of the object 
axes is the movement of the viewing plane to some arbitrary point and 
the orientation of the viewing plane to some arbitrary direction. The 
movement of the viewing-plane axes corresponds to motion of an observer. 
An aircraft flying around a fixed object and viewing the object from the 
various sides is an example of this capability. 

It can be seen that the two situations can be thought of as the 
same, but with a change in reference. One might argue that there is 
really no difference and therefore unworthy of consideration as a 
separate problem. However, if one considers that possibly both the 
object and the viewing plane could move, a much larger set of appli- 
cations is possible. 

Consider again the aircraft as an example. This time let the air- 
craft fly around an aircraft carrier. The carrier has motion about 
each of its three object (ship's) axes. The aircraft, which contains 
the viewing plane, is moving about some inertial reference. The view- 
ing plane therefore is moving in respect to a stationary point in some 
inertial frame. 

A. THE HOMOGENEOUS MATRIX 

Implementation of the movement in each of the three dimensions can 
be easily accomplished by retaining and expanding the previously 
developed matrices. 
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For illustrative purposes, write the matrix transformation already 



derived as 
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Combining the last three matrices yields 



H = 



X 1 X 2 X 3 0_1 100 
U 1 ^2 U 3 ° 0 1 0 0 1 

v v 2 v 3 0 0010 

0001 X_ Y_ Z_ 1 

t T T .i 



1 -Y Q /F -Z q /F -S/F 
0 10 0 

0 0 10 



It is now necessary to have agreement on whether the translation of the 
viewing plane or the orientation of the viewing plane comes first. 
Translating the viewing plane to some point and them orienting it in 
the direction desired was considered to be easier to visualize than 
first orienting the view-plane and then translating it. The order of 
rotation when re-orienting the view-plane must also be specified. The 
same convention that was established with the object axes will be used 
with the viewing plane axes. Rotation (yaw) about the z axis is there- 
fore measured first by the angle PSI. Pitch about the y axis is mea- 
sured next by the angle THETA. Roll about the x axis is measured last 
by the angle PHI. 

B. TRANSLATION OF THE VIEWING PLANE 

Translation of the viewing plane is really the same as a negative 
translation by the same amount of the object axes. Let the object axes 
translation from the reference axes be 
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X 0B Y 0B Z 0B 



and let the viewing plane translation from the reference axes be 

X VP Y VP Z VP- 



Let the resultant translation be 



X T Y T V 



Then 
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where the resultant translation (X^ Y^ Z^) is 



X T " X 0B- X VP 

y t " y ob- y vp 

Z T = Z 0B _Z VP‘ 



Let a point being transformed be represented by the vector P, where 

1 " [*H y H Z H V ' 



Then 



L P JL 



Rotation 
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results in the coordinates of the points after rotation, expressed in 



viewing-plane coordinate values (corresponding to the reference plane 
since the viewing plane has not yet been moved). Call the resultant P f . 
Then translating both the object axes and the viewing- p lane axes 



results in the coordinates of the point after rotation and translation 
of both the object axes and the viewing- plane axes, expressed again in 
the new viewing-plane coordinates. Call this resultant P ,f . At this 
point, of course, the reference axes and the viewing-plane axes no 
longer correspond. 

C. ORIENTATION OF THE VIEW- PLANE 

Re -orientation of the view-plane at this point can be looked upon 
as a rotation of a new object axes, say u 1 v* w 1 . These new object 
axes correspond to the viewing - p lane axes before rotation and the co- 
ordinates P * 1 which were found in the previous steps. If the axes did 
not correspond at this point, it would be necessary to evaluate new 
translations brought about by the reorientation of the viewing plane. 

In this example however, the axes were made to correspond. 

Rotation of the axes now is a simple matter. Rotation of the axes 
is the negative of the viewing-plane rotation. However, the rotation 
of the object axes in this context must be around a fixed set of axes, 
the fixed axes corresponding to the axes of the viewing plane. If 
rotation utilizing Euler angles were used, the second rotation would 
be about the rotated object axes instead of the new viewing- p lane axes. 
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After multiplying by the fixed angle rotation matrix using the nega- 
tive of the orientation angles , the rotation-translation-orientation 
solution is complete. For the perspective view, multiplication by the 
combined perspective-offset-scale matrix completes the transformation. 



D. SUMMARY 

It has been shown that translation and viewing- plane orientation 
can be accomplished in one matrix transformation, namely, 
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In implementing this, the first rotation matrix and both trans- 
lation matrices are combined. The result is post-multiplied by the 
viewing-plane orientation matrix. The result is modified to reflect 
the scale and perspective transformations and if offsets are present, 
that modification is also made. The result remains a 4 x 4 matrix that 
can be used to transform all the points to be displayed and that need 
be calculated only once for each view desired. 
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IV. DATA STRUCTURE 



The type of data structure to be used in any given graphics program 
is greatly dependent on the purpose and nature of the program. The 
complexity can vary greatly due to the variety of applications. Three- 
dimensional data structures will necessarily be more complicated than 
two-dimensional data structures. A graphics program that will be 
modified on-line requires a higher degree of complexity than one which 
makes no provision for change. 

A brief look into a few techniques adaptable to problems of in- 
creasing complexity will be described in this chapter. There are of 
course many ways of structuring data, and the following methods are 
merely an illustration of some of the characteristics and properties 
associated with data structures. 

A. BASIC STRUCTURES 

The two requirements in storing data are generally contradictory. 
Data should be rapidly available but at the same time it should be 
efficiently stored since memory is usually limited. The structures 
used in this section are not meant to be an exhaustive list of possi- 
bilities, but are rather illustrations of \^ere one might begin in a 
search for a structure suitable to a specific problem. 

1 . Structuring for Points Only 

The simplest of all data structures is that represented as an 
array of planar points. Consider the points in Figure 5 making up the 
letter 'A*. By using enough points, the f A f may be made to appear to 
be composed of lines. Considerable memory is required in this type 
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FIGURE 5 

EXAMPLES OF DIFFERING DATA STRUCTURE REQUIREMENTS 
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of storage, due to the large number of points needed as the picture 
becomes more complicated. Each point requires two coordinates. 

The points could be stored as fixed point numbers unless the loss 

in resolution is unacceptable, such as in the case of magnification of 

details. A 24-bit computer word can yield a resolution of one part in 
23 

2 , assuming signed numbers and the full computer word are being used. 

12 

Since present display devices give at best one part in 2 and many yield 
only one part in 2^, packing these point coordinates into one word is 
possible for further memory saving. These techniques can be used to 
advantage in assembly language programming, but are of limited use in 
FORTRAN IV. 

2 . Struct uring for Connect ed L ines 

Increasing the complexity by one step, the figure 1 0 ' of Figure 
5 is drawn. This figure is composed of connected straight-line segments. 
The points can be stored again as in the previous case, but now a line 
is drawn to each succeeding point. The line is continuous, although 
broken, and therefore no other special information is necessary. 

3 . Structuring for Line Segments 

Going next to the 'A' made up of line segments, a higher-order 
storage problem is encountered. Now the figure is not made up of just 
one connected line, but rather a connected broken line and a line seg- 
ment, or more simply just three line segments. Now it is necessary to 
note the line segments as well as the points making up the line seg- 
ments. If just the points are stored, there is no way of knowing how 
these points should be connected for display. If just the lines are 
stored, the end points are undefined. If the lines are stored listing 
the endpoints, there is unnecessary repetition of the same points. It 
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is necessary therefore to store a block containing the points and 



another block that defines the lines that exist between designated 
points. Figure 6 shows a structure for the 'A 1 , with the points num- 
bered for clarification. Although the line end points can be referred 
to by their value or location, storage location was used in this example 
since this gives more flexibility and points are not entered redundantly. 
The line list of Figure 6 contains the identification number of the 
points used to draw the f A f . The points are defined in the point list. 

To display the figure, the line list is traversed, moving from line 1 
to line 3. Line 1 is drawn between points 1 and 2 by referring to the 
point coordinates in the point list. 
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FIGURE 6 

DATA STRUCTURE FOR THE LINE f A f 



4 . Structuring for Simple Three-Dimensional Figures 

In the two-dimensional case, storage in the line list of the 
actual points is probably preferred, making for a simpler structure. 

On the other hand, as the third dimension is introduced, it is prefer- 
able to define the lines by the location of storage of the point coordi- 
nates. This is so simply because the three-dimensional conversion is 
done on the points. To keep from converting the same point several times 
because it is stored in different locations, it is desirable to make all 
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references to the point by location. For example, in Figure 7 each end 
point is a member of three lines. In the three-dimensional case it 
is not desirable to fit the three coordinates into one word (by packing) 
because the resolution would be severely limited--in the case of a 24-bit 
computer word the resolution for the packed case would be 1 out of 2^, or 
little better than 1 out of 100. Any calculations that are to be made on 
the coordinates would degrade the accuracy further due to round-off error. 
Additionally, the coordinates would have to be unpacked for each opera- 
tion or series of operations and then returned to the packed mode. 
Therefore three-dimensional data must be stored using more than one 
memory location. The display points after conversion could be packed 
for display and stored as before since only two coordinates are displayed 
in the pseudo 3-D presentation. 




FIGURE 7 

WIRE -FRAME RECTANGULAR BLOCK 

The converted points could of course be stored in the place of 
the original points, but the original data is then lost. To draw the 
wire model of the block, the line list can be followed, with each line 
drawn as in the previous case. 
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5 . Increased Complexity 



Now consider the same rectangular block made up of six plane 
surfaces limited by their intersections. It now becomes necessary to 
identify the surfaces. The method chosen here is to describe each plane 
surface by a series of points, ordered so that the outside surface is 
to the left of the path described by the series of defining points. If 
the surface is not closed, this also must be noted. (For example, if 
the rectangular block were an open box, the object is not closed.) 

Now there is a list for points, a list for lines, and a list 
for polygons defining limits of plane surfaces. Each line is a member 
of two surfaces and it is undesirable to draw the same line more than 
once. Some of the lines are hidden from view so that it becomes 
necessary to indicate which lines can be seen and which cannot. 
Additional information is therefore required. Examples of the pro- 
posed structure are shown in Figures 8-11. With the proposed structure, 
it is necessary for the display points to be stored by association with 
the points from which they were derived. Otherwise, reconstruction for 
display of the figure would be impossible. 

The point data block of Figure 8 contains the uvw coordinates 
describing the object in three dimensions using the object's own 
coordinate system. Also contained in this block is the depth coordinate 
after transformation and the horizontal and vertical coordinates for 
display of the points. The number of lines to which the point belongs 
is stored in the first integer cell. Only three pointers are used in 
the data block, indicating to which lines the point belongs. The num- 
ber of lines entering and exiting a point generally does not exceed 
three. There is, of course, the possibility of additional lines 
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POINT LIST DATA ARRAY 
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terminating at a point, and in this case another point block is used, as 
though the point were split. 

The structure array block shown in Figure 9 varies with type of 
structure described. The structure shown is for a polygon defining the 
limits of a plane surface. The direction cosines of the inward-pointing 
normal are computed and stored. There are then eight pointers, each 
pointing to a line that defines the polygon. The type of structure (in 
this case a polygon) is coded by number in the second integer cell. The 
first integer cell contains the number of parts contained (the number of 
lines for a polygon) and thus is available as a pointer when entering 
data. If the number of parts exceeds the capacity, a second block is 
used. This method of storing data dictates that the next block is to 
be used for continuation (i.e. i + 1 is the continuation of i) , and the 
indication that a continuation does exist is made by placing a number 
larger than the capacity in the first integer cell. In the block i + 1, 
a different type (code) number is assigned, indicating that this is a 
continuation of the previous block. 

Figure 10 shows the block storage as it is allocated by physical 
location by the FORTRAN IV compiler. Since the first subscript varies 
first, the entire block, N by 8 in size, makes up the point list at the 
low end of the allocated storage. This is followed by an N by 2 block 
containing the line list. The structure list follows with another N by 
8 block. Each division of Figure 10 represents N locations for real 
numbers. To split a location of a real number into two integer 
locations so that pointers can be inserted and read, the EQUIVALENCE 
statement is used. The integer array is dimensioned (2,N,18), where 
the length of the integer must be specified to be one-half the length 
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DATA STORAGE IN STRUCTURE AND LINE ARRAYS 
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of the real number. The EQUIVALENCE statement sets (1,1,1) of the integer 
array equal to (1,1) of the real-number array. Thus each real-number 
location can also be referenced by a pair of integer locations. This can 
be depicted as two integer cells packed into one real-number cell. 

ARRAY (I,J) 

INTEGER ARRAY (1,I,J) INTEGER ARRAY (2,I,J)j 

I 1 I I 

Another convenient way to visualize the structure is shown in 
Figure 11. Here the structure is depicted as a matrix dimensioned N by 
18. The first eight columns make up the point list. The next two columns 
make up the line list and the last eight columns make up the structure 
list. Some columns are divided as explained above to utilize space more 
effectively. The row number N is the "name' 1 of the point, line, or 
structure in that row. 

No provision has been made here for linking various structures 
together. It is assumed that in displaying the image, the structure 
blocks will be traversed in order until all the blocks utilized have 
been traversed. If data is to be added or subtracted on-line from the 
basic structure, additional pointers would be necessary, pointing both 
forward and backward so that elements can be added or removed. In 
addition, it becomes necessary to employ an identification scheme so 
that if lines are members of arrays no longer used, they can be checked 
to see if they are used in some other array, and if not, they can be 
eliminated . 

B. STRUCTURE FOR HIDDEN-LINE REMOVAL 

If the object which is to be described is allowed to have concave 
dihedrals (where intersecting plane surfaces form inclusive angles 
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STRUCTURE LIST BLOCKS 
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external of the object of less than 180°), additional information is 
needed. This section will discuss how the description of the object 
and developed information is stored in association with nodes (points), 
faces (surfaces), and edges (lines). The utilization and development of 
the stored information will be discussed in chapter VI. 

The implementation of the three-dimensional structure for the dis- 
play of objects with concave and convex dihedrals and the elimination 
of their hidden lines is somewhat similar to that described in the last 
section. Some data was reorganized, some was dropped, and some was 
added. The result is a modified structure which contains the elements 
required by Galimberti and Montanari [Ref. 18] in their paper on the 
solution to the hidden-line problem. 

It was desired that the dimensioning requirements for a user be 
kept to a minimum. Therefore one large array is used which contains 
several line lists, a node (point) list, and a polygon list. Two 
integer cells are again equivalent to one real-number cell. 

1 . Node (Point) Information 

The basic structure must always rest on the individual nodes. 

The remaining stored data must provide the information necessary to 
connect the nodes for the display of the desired picture. 

An N x 6 array was used for the node uvw coordinates in real 
space (referenced to the object axes) and for the depth, horizontal, 
and vertical coordinates in display space. The first six locations 
(columns) were used so that the conversion subroutine could be pro- 
grammed to transform the first three locations and store the result in 
the second three locations. 
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Also associated with the node is information concerning the set 
of faces hiding that node and whether or not a node is an endpoint of a 
concave dihedral. The convex/concave determination is made and the 
result is entered in the first integer cell of the seventh position in 
the array. 

In the thirteenth position of the array, the number of on-view 
faces hiding the associated node is placed in the first integer cell 
and a pointer to the first such face for each node is placed in the 
second integer cell. The pointer indicates a starting position in a 
single -subscript list that contains the blocking faces for all nodes, 
entered as they are encountered. Figure 12 summarizes the information 
for the nodes. 

2 . Faces (Surface or Polygon) Information 

The eighth position in the array is divided into two integer 
locations. The first integer cell contains the number of points (nodes) 
defining the face and the second contains a pointer to the starting point 
in a list of nodes. If a face is hidden by its own volume, the first 
integer cell is marked with a negative sign. 

Also associated with the faces are the inward-pointing normals. 
These are computed and stored in the fourteenth to sixteenth position 
of the array. The normals are used to compute concave surfaces, and 
when that computation is completed, the normals are no longer needed. 

The storage space for the normals then becomes a temporary storage area 
during the examination of segments for the elimination of hidden lines. 

The list of defining nodes is a single-subscript array contain- 
ing the nodes (by 'name*) in the order in which they are entered. Figure 
13 summarizes the information for faces. 
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NODE INFORMATION 
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LSTFAC is a single- 
subscript array. 



FACES INFORMATION 



50 



3 . Edge (Line or Segment) Information 



The remaining locations from nine through twelve are used for 
information concerning lines. Locations nine and ten form one list, 
with ten following sequentially after all room is taken in nine. 
Location eleven and twelve form a similar list. Both lists are made 
up of two integer cells at each real-number location. The first list 
contains the starting and end point numbers (names) of the edge. The 
second list contains the two faces that join to make the edge. 

The edge information is ordered in these lists. The lower- 
numbered (named) node is always stored in the first cell and the face 
with which the orientation corresponds is entered in the first cell of 
its list. 

A negative sign is used to mark the first node in the ninth 
location to indicate that the segment is hidden (and that the segment 
is 'erased'). The second integer cell is marked to indicate whether 
the segment has been examined. The first integer location in the 
eleventh position is marked for concave lines. 

Unused space in both line lists is used for temporary storage 
when determining intersections and when determining the nature of a 
point (i.e. the set of faces that hide that point). Figure 14 sum- 
marizes the structure for lines. An application example may be found 
in the chapter on hidden-line removal. 

C. APPLICATION DEPENDENCE 

It should be remembered at this point that the structures herein 
discussed are FORTRAN IV oriented. Further packing of information and 
pointers would be possible by resorting to the assembly language for a 
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given computer. Reduction to mach ine -oriented programming can introduce 
efficiencies in many areas at the expense of machine independence. 

Many structures have been proposed. The usual discussion of 
structures however is mach ine -or iented or in a higher- level language 
than FORTRAN. Most discussion in data structuring deals with the two- 
dimensional case. Little has been done in FORTRAN because of its 
inefficiencies and inherent disadvantages when compared to other 
languages. A number of references dealing with structures may be 
found in the Bibliography. The requirements for efficient storage 
and rapid access are contradictory and trade-offs must be made, dictated 
in part by the application and the computer to be used. 



53 



V. CONTOUR LINES 



Contour lines find use in many fields. As techniques are developed 
for working with contour lines, a greater variety of applications will 
appear. In engineering applications, contour lines could be used when 
working with field problems such as 

lines of equipotent ia 1 , 
lines of constant pressure, 
lines of equal acoustic intensity, 
and lines of equal radiated power intensity. 

This discussion of contour lines will discuss a few of the funda- 
mental concepts that could be applied in a graphics program. The 
subject is worthy of study by itself and thus a complete treatment is 
beyond the scope of this presentation. The Bibliography contains a 
number of references that deal with contour lines. 

Specifically, the aspect of contour lines of immediate interest is 
the method of handling them so that they may be displayed in perspective. 
A function of two variables usually describes a surface. Man) 7 problems 
could be solved on sight if the right picture could be obtained of that 
surface. Two steps are required. First the contour lines must be 
obtained and second the desired picture must be constructed. 

A. DEFINITIONS 

One definition of a contour as given in the dictionary is "an 
outline". The contour lines will be used to construct an outline of 
an object or surface. Contour lines are normally defined as the lines 
of intersection between a given surface and a family of parallel 
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surfaces (usually horizontal planes). S. P. Morse [Ref. 34] points out 
that this definition is ambiguous if the given surface has a portion 
parallel to the parallel surfaces. For this reason, Morse defines 
positive and negative contour lines. Since contour lines in topography 
are most easily visualized, the following definition will be given in 
that reference. The positive contour line is a line connecting points 
all of the same elevation such that points adjacent to one side of the 
line are at a higher elevation and points adjacent to the other side 
are at the same or lower elevation. The negative contour line is a 
line connecting points all of the same elevation such that points 
adjacent to one side are at a lower elevation and points adjacent to 
the other side are at the same or higher elevation. The usual contour 
line on a map is generally a union of these two. Obviously there must 
be yet another kind of contour line to satisfy the cases of maxima and 
minima (peaks and valleys). These are called degenerate contour lines 
as opposed to the normal contour lines. Specifically they are called 
maximum and minimum contour lines. The positive direction of a normal 
contour line is such that the points of higher elevation are on the left- 
hand side and points of lower elevation are on the right-hand side as 
the contour line is traversed in its positive direction. 



B. ENCODING CONTOUR LINES 

For storage in a computer, a contour line can be represented by an 
encoded string. A rectangular grid system proposed by H. Freeman [Ref. 
14, 15] is a simple method of relating each point from previous points. 
A rectangular grid overlay is placed on a contour map. The curved con- 
tour line is then quantized to discrete values by assigning the closest 
node as the discrete contour point. To move from a reference point R 
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in Figure 15 to the next point, one of eight allowed directions must be 
taken. Each direction is assigned an octal integer. Each odd number 
represents a movement of 1.414 units at an odd multiple of 45 degrees. 
Each even number and zero represents a movement of 1.0 units at an even 
multiple of 45 degrees. The agreement between quantized values and the 
actual value on the contour line is a function of the grid spacing. See 
Figure 16 for an example of an encoded string. 




4 ® # % o 



i 

5 # ^ ^ 

6 7 

FIGURE 15 

FREEMAN'S RECTANGULAR GRID 

The grid size can be adjusted to yield the resolution required. 

B. W. Boehm [Ref. 5] suggests that a var iab le -s ize reference grid might 
be more appropriate. Thus, when little change in a surface occurs, a 
relatively large grid could be used. When the surface changes rapidly 
the grid size can be reduced so that details can be seen. 

A contour encoded with a small grid size can be converted to a 
larger grid size by "integrating" a number of encoded digits. The 
number of digits thus integrated determines the new grid size. This 
would be helpful in seeing the large scale view but would maintain the 
detail for the close-up views (i.e. by retaining the original grid in 
computer storage). 
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Besides the encoded string, each contour line must have associated 
with it the two-dimensional coordinates of the first point and the 
elevation of the contour line. 




ENCODED STRING 



Coded String 
120177111 
\ Reference Node 



Discrete Curve 
Va lues 



C. OBTAINING CONTOUR LINES 

Topographical contour lines are available on contour maps. In the 
engineering field, the data must be gathered (as of course it must 
originally have been done for topographical contour lines) and the con- 
tours constructed. Data can be gathered with regular, ordered samples 
or by random samples. Often no choice is possible. In the case of a 
surface which is a function of two variables, the data can be spaced at 
regular intervals. The intervals can also be varied for additional 
detail where the surface varies rapidly. Data obtained from weather 
observations may take on the characteristics of random sampling. In 
any case the data should be collected with the realization that it will 
be used to draw contour lines. If the horizontal space for which the 
contour lines are to be drawn is divided into a grid of size appropriate 
for the resolution desired, and the values of the horizontal planes are 
quantized at appropriate levels, the contours should become evident when 
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the data is taken (or estimated, based on observations available). A 
contour line passing through a node must cross at or near one of the 
adjacent nodes unless the contour line does not extend beyond the 
immediate region of the first node. 

D. DISPLAY OF CONTOURS 

Once the contour lines have been obtained, selected points can be 
converted for perspective display of the lines. The obvious points to 
use are those points corresponding to the grid nodes. 

The ’’cardboard cutout” type of display would be the simplest to 
obtain. In this type of display, the outline of the object is obtained 
and displayed as if the object were a flat surface perpendicular to the 
line of sight. To accomplish this, it is necessary to sense the left and 
right limits of visibility (from the observer’s viewpoint) of each con- 
tour line and then connect all the left extremities and all the right 
extremities within a family of curves. 

1. Determination of Limits of Visibility 

The determination of the left and right vis ibi lity- limit ing 
points can be done by maximizing and minimizing the tangent function 
of the angle between the y axis of the viewing plane and a given con- 
tour curve. Figure 17 shows six possible cases. 

Only those contour points that show negative depth coordinates 
need be examined. All positive depth coordinates are behind the view- 
ing plane. In both quadrants in front of the viewing plane, a minimum 
tangent function occurs at the left edge and a maximum tangent function 
occurs at the right edge. These are arithmetic maxima and minima. The 
only difference in the two quadrants is that in the left-hand quadrant 
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the sign of the tangent function is positive whereas in the right-hand 

quadrant the sign of the tangent function is negative. 

The actual angle need not be found. The magnitude of the tanget 

function is easily evaluated by using the origin of the viewing plane 

and the point on the contour line evaluated in the same coordinate 

system. The coordinates of a point located on a contour line are 

u v w 
c c c 

and the combined movement of the object axes and viewing-plane axes 
results in the quantities 

X T y t z t 

and previously defined in chapter III, i.e. 

- x 

T OB VP 
y t - y ob - Y VP 
Z T = Z 0B " Z VP‘ 

Only two dimensions need be used at this point, with the angle Q defined 
as the angle that a half-plane coincident with the positive y axis and 
the yz plane sweeps about the z axis to reach the contour line extremity. 
Thus , 



tan 0 = 



u + X,, 
c T 

v + Y_ 
c T 



and the point where this is a maximum arithmetic value is a right 
extremity. The point where this is a minimum arithmetic value is a 
left extremity. Note that (u^ + X^) will be negative for points in 
front of the viewing plane. 

A treatment of the general case of the elimination of hidden 
lines for two dimensions is detailed in an article by H. Freeman and 
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P. P. Loutrel [Ref. 17]. Such an elaborate procedure was not desired 
in this case. This is a method of improving detail, but of course costly 
in computing time and storage. 

2 . Variations 

A more complete picture can be obtained by also displaying 
those parts of the contour lines that lie in front of the limits of 
visibility (and are not hidden by other surfaces). The price of 
additional detail is again additional computation time and more memory 
storage requirements. 

The method of hidden-line elimination discussed in the follow- 
ing chapter can be applied to the outlines derived. The hidden-line 
elimination is applicable to objects drawn with plane surfaces. There- 
fore it is necessary to assume the cardboard-cutout type of display for 
at least that part of the program that eliminates the hidden lines. The 
three points defining a plane must be chosen very carefully however, 
since different combinations of left and right limit points will 
generally define different planes. 

E. FURTHER STUDY 

As three-dimensional capabilities are expanded, the use of contour 
lines in a wide variety of problems will begin to look more attractive. 
Morse points out that there are many problems which might be effectively 
solved by using contour maps to represent the data if techniques for 
processing contour maps were more fully developed [Ref. 34]. 
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VI. HIDDEN- LINE REMOVAL 



One of the major problems in three-dimensional display work has 
been the removal of hidden lines. A simple two-dimensional procedure 
was discussed in the section on contour lines. Generally, methods that 
have been used have been limited in application. Some solutions apply 
only to convex polyhedra. In order to process a large vocabulary of 
solids, point -vis ibi lity schemes employing n brute force” methods were 
used. The cost of such methods was a very large computation time. 

The method applied in this study uses ideas and concepts from 
reports by A. Appel [Ref. 2] and R. Galimberti and U. Montanari [Ref. 
18]. Appropriate modifications were made to shorten computation time 
wherever possible. This method is applicable to convex and concave 
plane-faced objects. The number of objects is not limited (except by 
total storage availability), but all objects must be described in a 
single coordinate system. 

A „ THE PREVIOUS REPORTS 

The two previous reports used as a basis for this treatment of the 
hidden-line problem defined some concepts for the first time. In his 
report, Appel gave a general solution to the hidden-line problem for 
a large vocabulary of objects. Appel’s method reduced the computation 
time from previous methods by an order of magnitude. Galimberti and 
Montanari presented the solution of the hidden line problem for either 
convex or concave plane-faced objects. Some of Appel’s concepts were 
used by Galimberti and Montanari. The computation time was further 
reduced but at the expense of some generality. 
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1 . Quantitative Invisibility 

Appel's analysis of the picture parts was done in three - 
dimensions, and can be extended to curved surfaces as well as plane 
surfaces. The concept of quantitative invisibility was introduced by 
Appel to determine which lines or parts of a line were to be drawn. 
Quantitative invisibility is concerned only with a count of the number 
of surfaces hiding a point. For those portions of a curve where the 
count is zero, the curve is drawn. When the count is other than zero, 
the curve is being hidden by a surface or surfaces between the curve 
and the observer and the curve is not drawn. Appel introduced the 
concept of implied vorticity and suggested a method for determining 
whether a point lies interior or exterior to a bounded surface. Both 
of these concepts are employed in this solution to the hidden-line 
problem and will be explained in a later section. 

2 . Invisibility by Sets 

Galimberti and Montanari extended Appel's method by making use 
of the projected lines and points and extending the concept of quanti- 
tative invisibility to become the concept of qualitative invisibility. 
Instead of the number of surfaces hiding a point, Galimberti and 
Montanari used the idea of an identified set of surfaces hiding that 
point. Their application was limited to convex and concave plane- 
surfaced objects. Any disadvantage introduced by the requirement that 
the object be described in this form was offset by the relative speed 
with which the calculation was made. Galimberti and Montanari outlined 
their algorithm very well. This study follows their algorithm in a 
general way, with many modifications. 
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B. DEFINITIONS 



The many concepts that will be discussed are at times difficult to 
visualize. Even greater confusion arises when the same word is applied 
to mean two different things. A clear distinction must be made between 
names in two dimensions and names in three dimensions. The terms defined 
here will be used throughout the remainder of the chapter. 

An object is assumed to be made up of faces which are bounded por- 
tions of plane surfaces. The intersecting faces form a concave dihedral 
if the included angle (measured external of the object) between the two 
intersecting faces is less than 180°. Faces are bounded by edges, where 
an edge is the intersection of two planes. The end points of an edge 
are called nodes. An edge is convex or concave, corresponding to the 
dihedral of the faces which define the edge. A node is concave if it 
belongs to at least one concave edge. Projection on a picture plane 
yields polygons for faces, segments for edges, and vertices for nodes. 

A point is a general term and is used in both two and three dimensions. 
Both edges and segments are composed of a series of points. Nodes and 
vertices are special points. 

Two segments cross at an intersection. A segment that intersects 
a second segment is said to be winning if the first corresponding edge 
crosses in front of the second corresponding edge. The second segment 
is said to be losing. Thus the intersection is a winning intersection 
for the first segment and a losing intersection for the second segment. 

The nature of a point is the set of faces in three dimensions which 
block that point from view. To find the nature of a vertex, the corres- 
ponding node must be checked for any intervening faces. The set of 
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intervening faces is the nature of the vertex (and the node). When the 
nature equals the null set the point is in view. 

C. SPECIAL TESTS 

Various special tests were developed to be used with this program. 
Many of these tests have uses beyond the immediate applications in this 
solution to the hidden-line problem. In each case the tests have been 
reduced to a minimum of programming in an attempt to minimize time and 
Computer memory. 

1 . Implied Vorticity 

If it is desired to determine whether two points are on the same 
or different sides of a line, a test for implied vorticity can be made. 
Refer to Figure 18. The sense of rotation about A in going from P^ to 
i- s counter-clockwise, but the sense of rotation about B is clockwise. 



• P 2 






k y 



FIGURE 18 
IMPLIED VORTICITY 

The area of a triangle bounded by three points can be found by 

1 
1 



a = ±2 



Y Z 
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A =±- 



A =±- 



Z i + 1 



X. 

1 



X i + 1 



X 



i+1 



Y. 

1 



Y i+ i 



where a, b, and c are the direction cosines of a line perpendicular to 
the plane of the triangle determined by the points P , P , and P^_^ . 

The sign is a function of the direction of rotation about P^. The 
actual sign is not of consequence for the applied purpose, but a 
change in sign in testing two points indicates a change from one side 
of the line to the other. The area is of no concern for this application 
and therefore the direction cosine is not needed. The equation as used 
for testing is used in the two dimensional case and reduces to the form 
AH = X oYl + X 2 Y q + Xp 2 - X 2 Y x - X iYq - X q Y 2 

where AH is an indicator and 

(Xq Yq) are the coordinates of the point under test, and 



< x i V; 

(X 2 Y 2 )j 



are the coordinates of the end points of the line 



This can be modified to 



AH - X 0 Y 1 + XjY - Xl Y 0 - X 0 Y 2 + C 



where 



C 



X 1 Y 2 



X 2 Y 1 



This was implemented as a function statement for rapid evaluation. 

When applying the test, obviously two points must be evaluated 
or the test is meaningless. The point being tested is always (X Y^) 
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and is being tested in respect to the line with end points (X^ Y^) 
and (X 2 Y 2 ). 

To test for an intersection of two lines, the test for implied 
vorticity must be applied twice. First each of the end points of one 
segment must be tested with respect to the end points of a second seg- 
ment. If no change in sign occurs, implied vorticity is the same for 
both points and there can be no intersection. If there is a change in 
sign, each of the end points of the second segment must be tested in 
respect to the end points of the first line. Again, no change in sign 
indicates no intersection is possible. A change in sign in both tests 
indicates that there is an intersection within the segment lengths. 

In the example of Figure 19, it is desired to test lines , 

and L, for intersection with line L_ . Point C is tested with respect to 
4 1 

line (points A and B) . Point D is then tested with respect to line 
L^. The signs of the two results are compared and in this case the 
signs are the same (either both positive or both negative). This indi- 
cates that no intersection can occur between these two lines. The 
actual polarity of the sign is determined by the direction in which line 
is traversed between points A and B. 

E ® • F 




TESTING A LINE FOR INTERSECTION 
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Next, points E and F are each checked with respect to line L^. 
This time a change in sign occurs since the implied vorticity is counter- 
clockwise for E and clockwise for F when the direction in line is from 
A to B. Now the possibility of an intersection exists, but when the test 
is applied to points A and B in respect to line it is seen that no 
intersection is possible. 

Last, points G and H are tested with respect to line and it 
is again seen that the possibility of an intersection occurs. Testing 
A and B in respect to line completes the test and an intersection is 
indicated since the sign changed in both applications of the test. 

Several special cases arise when one or both points are col- 
linear with the line being tested. Figure 20 and the following examples 
explain the special cases that can develop. 
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FIGURE 20 

INTERSECTION SPECIAL CASES 
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In the first example, segments and belong to the same line, 
but the segments do not meet. In this case, the application of the vor- 
ticity test to either end point of one segment in respect to the other 
segment results in a zero (since the area of the triangle is zero). The 
same condition exists for and , except that now there is an inter- 
section. In the case of lines and , two intersections are assumed, 
one at G and one at F (or at the end points of the common segment) . If 
G and F coincide, only one intersection is assumed. In both of these 
examples the implied vorticity test fails to provide the desired infor- 
mation and a special test was developed. 

When the result of the implied vorticity is sensed to be zero 
(or close to zero), a separate test is used. If the lines are not 
vertical, the x components of the vertices are used in the test. 

Let 

“1 

R = minimum ^maximum (X^ , X^), maximum (X^ , X^)J 

L = maximum j minimum (X , X ), minimum (X , X ) j. 

L A B C D _ I 

Then R - L will result in 

1) a negative number if there is no intersection 

2) zero if the intersection is at one common end point 

3) a positive number if there is a common segment 
Applying the test in the case of the line and the line , 



it can be seen that 



R = minimum j X^ , X^J = X^ 
L = maximum j^X^ , X^J = X^ 



and 



(R - L) = X - X = a negative number, hence no intersection. 
d L. 
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For lines and , 

R = min ^max (Xg, X p ) , max (X X H >J 
L = max ^ min (Xg, X p ) , min (X G> X H )j 

and 

(R - L) = X - X = a positive number, hence the segments must 
r G 

over lap . 

If X = X , the lines intersect at a common end point and the result 
F G 

of R - L is zero. If the lines are vertical, the same test is applied 
with the Y coordinate in place of the X coordinate. 

The remaining two special cases occur when only one of the end 
points is collinear with the other segment. Two different situations 
are shown in Figure 20. Lines and show no intersection and lines 
L and L show an intersection. Of course if points I and J are tested 
with respect to line , it can be seen immediately that there is no 
intersection. But if points K and L were tested with respect to line 
first, an intersection may or may not be indicated, depending on the 
sign of the very small number resulting from testing K in respect to 
line L^. Although this small number should be zero, round-off errors 
in conversion would probably cause it to be other than zero (although 
extremely small). Each result of the vorticity test is therefore 
checked for the small magnitude that would result from one end point 
being collinear. In this program only losing intersections are noted 
since only the losing intersections cause changes in qualitative 
invisibility . 

2 . Exterior - Interior Determination 

The principle of this test was also suggested by Appel. If a 
line is drawn from the point being tested to a point exterior of the 
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boundary, the number of crossings must be an odd number if the point is 
interior to the boundary or an even number if the point is exterior to 
the boundary. 

Applying this test to the three-dimensional problem, the pro- 
jection of a face onto the picture plane yields a closed boundary (a 
polygon). If some point (usually a node) is projected onto the picture 
plane also, and a line is drawn from that point to a point that is known 
to be exterior to the polygon, the number of crossings of the polygon 
will reveal whether the projected point is inside or outside the polygon. 
If the projected point is inside the polygon, the point is either in 
front of or in back of the face corresponding to the polygon. A depth 
test to determine which is closer to the observer will resolve the 
ambiguity. If the projected point is exterior to the polygon, the 
corresponding face cannot be hiding that point. 

Figure 21 contains a polygon P 3^4 P 5 P 6 P 7 a ^ole ♦ 

The hole is bounded by P P P P . Point A lies inside the bounded 

y 1U II LZ 

area. If a line is drawn from A to any point outside of the polygon, 
an odd number of crossings of the boundary will occur (either 1 or 3). 

For point B, the number of crossings will be even (or zero). In this 
example if the known exterior point is beyond the limits of the polygon 
P^__, (i.e. not in the hole), the number of crossings will be two. From 
point C the number of crossings will be zero, two or four, depending on 
the direction in which the line is drawn. 

To reach a point exterior to the polygon, a half-line segment 
is assumed to be drawn vertically from the projected point. All seg- 
ments are then checked for intersection with this vertical half-line. 

The faces defining the edges that correspond to the crossed lines are 
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marked. When all segments have been checked, those faces which have been 
marked an even number of times cannot be hiding the point. Those faces 
marked an odd number of times are further checked for depth to determine 
which faces block that point. 



P 

7 




FIGURE 21 

INTERIOR- EXTERIOR DETERMINATION 
3 . Intersection of a Plane and a Line (PlERC) 

A subroutine was developed to provide the coordinates of the 
intersection of a plane specified by three points and a line specified 
by two points. This test is necessary to determine where a line con- 
necting the observer and a point under test passes through a surface. 

If the intersection is further away than the point, the point is in 
front of the surface. 

The subprogram was developed from the basic equations of a line 
and a plane. The equation for a plane specified by three points is 

X " X 1 y " y l Z " Z 1 
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The parametric form of the line equation is 



x 1 = x| + ta 
y 1 = y | + tb 
z * = z ' + be 



where 



a x 2 ‘ x { 

b = y' - y[ 

C = Z 2 " Z 1 

and t is the parmeter and the primes denote the coordinates of the 
points defining the line. 

Expanding the equation for the plane and arranging terms 



Let 
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D = - Ax^ - By ^ - Cz ^ 



Then 



Ax + By + Cz + D = 0 , 

where A, B, and C are the direction numbers of a normal to the plane 
To find the intersection of the plane and the line, substitute the 
expressions for x, y, and z defining the line into the equation for 
the plane. 
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A(xj^ + ta) + B(y | + tb) + C(zj^ + tc) + D = 0. 

Solve for the parameter t. 

Axj^ + By| + Cz| + D 
t = - (Aa + Bb + Cc) 

The coordinates of the intersection then are 

x = xj + ta 

y = y[ + tb 

z = z| + tc 

This test is implemented in the subroutine PIERC (pierce). A, 

B, C, and D are found as above using the three points defining the 
plane. The direction numbers of the line are then found. Combining 
these results allows the value of the parameter t to be found. The 
value of the parameter t is then used in the parametric line equation 
to find the intersection of the line and the plane. The entire process 
is coded into only eleven FORTRAN statements consisting of 29 addition/ 
subtractions, 19 multiplications, and one division. The determination 
of the intersection of the plane and the line can thus be made very 
quickly . 

D . ALGORITHMS 

Although some portions of the program are not directly concerned with 
the hidden-line removal, there is an interacting influence between the 
hidden- line removal problem and the remainder of the program. The 
greatest influence is exerted through the storage of data and the 
associated requirements. 

This section will explain the algorithms used in the various pro- 
gram parts. The first section will introduce a general program which 
could be used to generate a picture with hidden lines removed. Various 
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subprograms are called. These subprograms will be further explained 
immediately following the introduction of the general program. 

1 . General Program 

Flowchart 1 provides an overall view of the complete program. 
Dimension requirements are explained in Appendix C. Subroutine DESCRB 
is an initializing routine that resets all pointers and flags and clears 
certain portions of the array structure. Subroutine FACES enters that 
data for one face each time it is called. LINES connects the points 
which were entered to form the structure in storage. CCVCVX identifies 
all of the concave dihedrals. At this point the structure within the 
computer is complete. As many views as desired may be made by continuing 
on from A. 

When developing the picture, it is necessary to set the angles 
and positions of the object and the observer before calling C0NV3D. If 
these variables are not set the previous values will be used, or if this 
is the first view, all angles will be set to zero. All positions will 
be zero, except the object will be moved 40 units away from the focal 
plane, enabling the object to be seen. C0NV3D converts the stored co- 
ordinates of each point to coordinates for horizontal and vertical dis- 
play, and a depth coordinate which is associated with each point. 
Additionally the position of the focal plane center and two additional 
points in the focal plane are calculated in terms of the object*s co- 
ordinate system. The position of the center of the focal plane is used 
when determining the coordinates of the intersection of the line of sight 
and a plane. This is used in subroutines VRTNTR and TSTNNP which are 
called by CMPUT. The three points in the focal plane are used to deter- 
mine the coordinates of the intersection at the focal plane of a line 
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FLOWCHART 1 

PROGRAM FOR GENERATING COMPUTER DRAWN PICTURE 
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passing through the focal plane. This information is used in subroutine 
ALTER. 

Some lines of a drawing will be hidden by the object's own 
volume. HDNSRF determines which surfaces are facing away from the 
observer and interprets this information to determine which lines are 
hidden by the object's own volume. 

Subroutine ALTER will modify the line structure by terminating 
all lines passing through the focal plane and assigning new end points 
which lie in the focal plane to replace those end points which lie behind 
the observer. This is necessary due to the inverted image which is 
formed after passing through the focal point (similar to the image being 
inverted in a camera) . 

Each on-view line is then examined in subroutine CMPUT to deter- 
mine which portions of the line are visible. This subroutine also calls 
the subroutines VRTNTR, TSTNNP, LNTRSC, WINDOW, and other routines of a 
more general nature. These subroutines will be discussed in the section 
explaining the algorithm for CMPUT. 

At the completion of CMPUT, the picture has been "developed" 
and exists in the form of a list of starting point coordinates and end 
point coordinates for each visible line normalized to + 1. The user 
must define the output to be used and must process the line list for 
any changes required from the normalized + 1 and the output device. Two 
routines which are included in the demonstration program that accomplish 
this are DRAWVP and DRAWIT. 

DRAWVP converts the line list to an output for the line printer. 
Up to ten symbols will be printed for each line. The picture will be 
distorted due to the constraint of printing only at discrete points, 
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but offers the advantage of obtaining an immediate result which can be 
used to guide modifications to data describing the object. This routine 
loses its effect as the picture becomes more complicated. DRAWVP re- 
quires that subroutine VPLOT be furnished (see Appendix C for information 
on VPLOT). 

DRAWIT is a subprogram developed to draw the output picture on 
the CALCOMP Plotter using the line list developed. DRAWIT utilizes the 
locally developed plotting package. (See Appendix C for further infor- 
mation on this subroutine and the plotting package.) 

When the picture is completed, additional views may be desired. 

To obtain another view, subroutine ERASE is called to reset flags and 
pointers and to restore the line structure if it has been altered. The 
program is entered at the point of setting any new angles or positions 
or of setting new values of focal length (focus), offsets, or scale. 

If for example it was desired to magnify the picture by two with no 
other changes, scale would be reset to 1/4 (assuming it had been 1/2) 
and all other values left as already set. This means the normalized 
distance from the center to an edge of the picture is now 1/4 and this 
portion of the picture will be expanded to fill the "picture frame 11 . 

This corresponds to enlarging a portion of the picture already made. 

For a telephoto effect, only the focal length would be changed (by 
increasing the value of the focus). This corresponds to using a tele- 
photo lens in a camera. Although the results are similar, the two 
cases originate differently. In a camera the enlargement process is 
limited by the grain of the film but in the computer drawn picture the 
resolution is determined by the resolution used in the object description. 
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A main real array and an integer array occupy the same block 
of memory. Two integer words must equal one real word and this is 
assumed in the following discussion. EQUIVALENCE statements required 
are defined in Appendix C. 

2 . FACES (Subroutine for Entering Data) 

The objects to be displayed are entered through the use of a 
subroutine called FACES. The objects to be entered must be described 
by bounded plane surfaces. The boundaries of the plane surfaces are 
defined by a number of points with straight lines connecting those 
points. The first point and last point of any such surface boundary 
are assumed to be connected. The first point must be a corner point 
for reasons explained in CCVCVX. 

For each face, the first input is the number of points that are 
to follow. Then the three coordinates of each point are read until the 
specified number of points has been entered. As each point is read, it 
is compared to points already entered and if it is already present, an 
identifier n^ (a number) is assigned to that point and the coordinates 
of that point are stored in the (n^,J) position of the main array (where 
J = 1, 2, 3). A list (LSTFAC) of the points in the order that they are 
entered is kept separately. The number of points entered for the face 
is stored in the main integer array at (l,n^,8) where if_ is the number 
of the face being entered. A pointer to the start of the defining 
points in LSTFAC is stored in the array at (2,n ^,8). Flowchart 2 
summarizes the algorithm for FACES. The subroutine must be called as 
many times as there are faces to be entered since only one face is 
entered by a single call. This subroutine may be called at any time 
that a face (or faces) is to be added to the existing structure, but 
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after the new face(s) has been entered, the subroutines LINES and 
CCVCVX must be called before proceeding with the development of the 
p i c t u re . 

3 . Connecting the Defining Points (LINES) 

After the defining points have been entered, the points are 
connected by the subroutine LINES. Each point is to be connected by 
a straight line segment to the next point until all of the points for 
the face are used. The last point is then connected back to the first 
point . 

In the line structure it is desired to store the end points so 
that the lowest numbered (named) point is always stored as the first 
point. The face for which this is the normal orientation of the line 
will be stored in the first integer of column 11 and the face for which 
this is the reverse orientation of the line will be stored in the second 
integer of column 11. The assumption here is that every line segment or 
edge is the intersection of two planes and will be entered once in each 
direction. If lines which lie entirely on one surface are to be entered 
they must be entered in both directions when that surface is processed. 
See Appendix C and the example input data and the program output fol- 
lowing the Appendices. 

A line is only entered once. A search is made of the lines al- 
ready entered. If the line is found, the face presently being drawn is 
entered in the proper integer in column 11 according to the orientation 
of the line. If the line is not found the line is entered by listing 
its end points in column 9. The present face is entered in the proper 
integer in column 11. 
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When the last point has been entered, the first point is entered 
as the new point and the final line for the face is processed. After 
the completion of this final line for the face being processed, the 
entire process is repeated for the next face. This continues until all 
of the input faces have had their sequential points joined by lines. See 
Flowchart 3. 

4. Detection of Concave Dihedrals (CCVCVX) 

It is necessary in this treatment of the hidden-line problem to 
identify those edges which correspond to the intersection of two sur- 
faces which form a concave dihedral. Subroutine CCVCVX identifies the 
concave dihedral and marks the appropriate line and its end points 
(Flowchart 4). A line which results from a concave dihedral is marked 
with a minus sign in the first integer in column 11. A node which is 
the end point of at least one concave line is marked with a 1 in the 
first integer of column 7. A zero in column 7 indicates that all lines 
of which that node is an end point result from the intersection of two 
surfaces forming a convex dihedral. 

The first step in the detection of the concave dihedrals is the 
calculation of inward pointing normals for each face. The normal for 
a face is calculated by constructing a directed line from the first 
point entered to the last point entered (line 1) and a second directed 
line from the first point entered to the second point entered (line 2). 
The length of each of these lines is normalized. The cross product of 
the normalized lines [(line 1) x (line 2)] results in an inward pointing 
unit normal. The direction cosines of the normal are stored in array 
FNORML for use as required. 
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Each line is then examined by using the cross product of the 
normal of the first face in column 11 (normal orientation) and the 
normal of the second face in column 11 (reverse orientation). See 
Figure 22 as an example. 

Assume line AB is defined such that A is the low numbered point 
and B is the high-numbered point. FACE 1 and FACE 2 are identified in 
the figure and correspond to the normal orientation of the line and the 
reverse orientation respectively. (Remember each surface must be entered 
by following the boundary such that the surface lies always to the left.) 
When the inward pointing normal of FACE 1 is crossed into the inward 
pointing normal of FACE 2, the result is a vector in the reverse 
direction of line AB . If the faces had formed a convex dihedral, the 
resultant vector would have been aligned with line AB . To detect the 
direction, the dot product of the resultant of the cross product and 
the line is calculated. This is the same as detecting the projection of 
the cross-product resultant on line AB . If the result of the cross 
product is negative, the faces intersect in a concave dihedral. If the 
result is positive, the intersection is a convex dihedral. A zero 
result indicates that the faces are coplanar. 

The lines and end points are appropriately marked. When all 
lines have been checked, all concave dihedrals have been identified. 

This process need only be done when the structure is first entered. 

5 . Transformation to Perspective (C0NV3D) 

This is the first subroutine to be called which is view dependent. 
The rotation angles and positions of the object and the observer should 
be defined as desired before this subroutine is called. 



85 



FACE 1 




FIGURE 22 
CONCAVE DIHEDRAL 

CONV3D (Flowchart 5) calls VMVMAT (Flowcharts 6, 7) as its first 
step. VMVMAT calculates the 4x4 homogeneous transformation matrix 
and the location of three points in the focal plane as well as the 
location of the focal point expressed in object axes coordinates. The 
computation of the homogeneous transformation matrix is discussed in 
chapters II and III. To calculate the location of the focal plane in 
terms of the object axes coordinates, Euler angle rotations were used 
with the observers viewing angles and with the negative of the object's 
rotation angles. Once the matrix and the positions have been calcu- 
lated, they remain available until the view is changed. 

The three points used in the focal plane are the origin, the 
point y = 1 on the y axis, and the point z = 1 on the z axis. Trans- 
lation of the observer less the translation of the object provides the 
resultant translation of the focal plane origin in terms of the object 
axes coordinates. By adding the proper direction cosines of the Euler 
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angle rotations of the observer, the three points in the focal plane are 
expressed in object's axes coordinates for translation of the object and 
observer and rotation of the observer. To compensate for object rotation 
the Euler angle rotation cosines are calculated for the negative of the 
object angle rotation (using matrix form). Multiplying the three co- 
ordinates found previously for each point by the rotation matrix pro- 
vides the coordinates of the three points in the focal plane in terms 
of the object axes coordinates. These are saved and used in a later 
part of the program. 

C0NV3D proceeds with the conversion of all data points (or nodes) 
The theory of the conversion is explained in chapters II and III. The 
results of the conversion are placed in columns 4, 5, and 6 of the main 
ARRAY. Column 4 is a depth coordinate, column 5 is the horizontal 
picture-plane coordinate, and column 6 is the vertical picture -plane 
coordinate . 

If the hidden lines were not to be removed, the picture could 
be drawn immediately by following the line list in column 9 and con- 
necting the picture plane coordinates of the end points listed. 

6 . Suppressing Surfaces Hidden by the Object's Own Volume (HDNSRF) 

In any given object constructed of plane surfaces, some of the 
surfaces will face away from the observer. Since these surfaces cannot 
be seen, it is desirable to eliminate them as soon as possible from 
further consideration and spend the computation time on the on view 
faces . 

The test for a surface oriented away from the observer is made 
in the picture plane (Flowchart 8). Once again a line is constructed 
from the first point to the last point and from the first point to the 
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second point, where first, second, and last are in reference to the order 
in which the points for a face were originally entered. When the first 
line is crossed into the second line (cross product), the resultant 
vector will point either into the picture or out of the picture. Since 
the lines are coplanar, there are only two dimensions involved and the 
test is rapid. If the resultant vector is positive, the face is not on 
view and that face is marked with a negative sign in front of the first 
integer of column 8 (the integer that specifies the number of points in 
the face). 

When all the faces are thus checked, the list of lines contain- 
ing the intersecting planes is checked. If a line is the result of the 
intersection of two hidden surfaces, the line cannot be seen and is 
therefore marked with a negative sign in front of the first integer in 
column 9. If a line corresponds to a concave dihedral and at least one 
of the intersecting surfaces is hidden, the line is hidden and is so 
marked . 

At this point, if a single object is being displayed and the 
object has no concave dihedrals, it is possible to draw the object with 
hidden lines removed by following the line list and connecting the end 
points of those lines not hidden. 

7 . Termination of the Picture in the Focal Plane (ALTER) 

This subroutine need only be called when a portion of the picture 
lies behind the observer. In order to properly display the picture, the 
lines which pass through the focal plane must be terminated at the focal 
plane. Subroutine ALTER accomplishes this task (Flowchart 9). 

Each line is examined by its end points to determine if either 
or both ends are behind the observer. The depth coordinate of the end 
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point is negative if the point is in front of the observer (the observer 
looks into the negative x half-space). If both ends are in front of the 
observer, the line is not disturbed. If the line is hidden it is not 
considered. If both ends of the line are behind the observer, the line 
is marked as if hidden. 

In the remaining two cases , one of the end points is in front and 
one is behind the observer. (Since the points are identifiable, the two 
permutations define two cases.) The three points in the focal plane that 
have had their coordinates converted to the object axes system are used 
in the PIERC subroutine to determine the coordinates of the intersection 
of the focal planeand the line. The coordinates of the intersection are 
added to the list of points as an additional point and the line structure 
is altered to reflect the change in end points for the line being exam- 
ined. The coordinates of the intersection are converted with the homo- 
geneous matrix to picture-plane coordinates and the result is stored as 
in the original data points. 

When exiting this subroutine, a flag is set if any line structure 
has been altered. When ERASE is called, detection of this flag will 
cause subroutine LINES to be called to re-establish the original line 
structure . 

8 . Subroutines Called During Segment Examination 

Segment examination is accomplished by subroutine CMPUT which 
in turn calls on certain other subroutines. Those subroutines which 
are called during segment examination will be discussed in this section, 
a. Determination of the Nature of a Vertex (VRTNTR) 

When examining a segment, it is necessary to know the nature 
(the set of faces obscuring the node) of the initial vertex (picture-plane 
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point corresponding to the node). Subroutine VRTNTR is used to deter- 
mine the nature of the vertex if it is not already known. (Flowchart 
10 applies . ) 

The basis for this test is the Exterior- Inter ior Deter- 
mination discussed in an earlier section of this chapter. The half line 
is constructed vertically by allowing the vertical coordinate to exceed 
the vertical coordinate of any point on any line segment. All line 
segments that lie entirely to the left, entirely to the right, or 
entirely below the vertex being checked are eliminated from further con- 
sideration during the test of this vertex. Those lines which are hidden 
because the intersecting surfaces which define them are not on view are 
also eliminated. However those segments which are part of a concave 
dihedral and are members of at least one on view face are also checked 
even though the line itself may be hidden. This occurs because those 
boundaries of the on view face which are not concave dihedrals will be 
visible, and a wrong count will result if the concave dihedral is 
exc luded . 

For those segments which have not been eliminated, a test 
for intersection with the vertical half line is made. The faces which 
intersect to form the segments intersecting with the half line are 
marked once for each such segment if the face is on view. When all 
segments have been checked, those faces crossed an odd number of times 
are further checked to determine whether the face is behind or ahead of 
the node associated with the vertex. This is accomplished by calling 
PLNLIN which sets up the coordinates of three of the points determining 
the face and the coordinates of the points determining the line between 
the observer and the node being checked (Flowchart 11). The origin of 
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the focal plane calculated in VMVMAT is used as one end point of the 
line. When the coordinates of the plane and the line have been deter- 
mined, subroutine PIERC is called to determine the coordinates of the 
intersection between the plane and the line. These coordinates are 
used in the function DEPTH to determine the depth of the intersection. 

The depth of the node and the depth of the intersection are now compared 
and if the intersection is closer than the node, the face is added to 
LSTBFC. The number of such blocking faces is stored in the first inte- 
ger of column 13 of ARRAY and the pointer to the starting entry for 
that node in LSTBFC is stored in the second integer of column 13. 
b. Determination of Losing Intersections (LNTRSC) 

During the examination of a segment, the initial vertex has 
its nature determined. Each time another segment crosses in front of 
the segment being examined (a losing intersection for the segment under 
examination), a change in the list of blocking faces occurs. The exam- 
ination of a segment is done therefore by moving from the vertex with 
its nature known to each next intersection along the segment. Sub- 
routine LNTRSC determines those intersections of direct concern (losing 
intersections) for the segment under examination (Flowchart 12). This 
subroutine uses the special test for implied vorticity previously dis- 
cussed to determine whether or not an intersection has taken place. 

Upon entering the subroutine, those quantities that will be 
needed but have not yet been determined for the current segment under 
examination are found. When all the characteristic quantities for the 
current segment have been determined, all segments (called test segments) 
are processed to determine if a losing intersection has occured with the 
current segment. Those segments which do not correspond to edges (i.e. 



98 




FLOWCHART 12 
SUBROUTINE LNTRSC 



99 





lines lying on a surface) and those segments resulting from the inter- 
section of two hidden surfaces are eliminated from consideration. 

However if a segment is hidden but is a member of an on view face 
(possible in the case of a concave dihedral), it must be checked for 
intersection since a change in the set of blocking faces occurs when 
such a line is crossed. In Figure 23, when the current segment is AB , 
test segments CD, EF, GH , I J , KL, MN, OP, and QR cause changes in the 
set of on-view faces blocking AB when moving from A to B. Test seg- 
ments CD, QR, and GH each add a face. Test segments EF and MN each add 
one face and subtract one face. Test segments IJ, KL, and OP each sub- 
tract one face. The set of faces is identified not only by number but 
also by identifying each face in the set. 

Special attention is given to intersections at an end point 
(Figure 24) since the implied vorticity test as previously discussed is 
ambiguous in this region. If the intersection occurs at the end point 
of the current segment, it is treated as an intersection. If the inter- 
section occurs at the end point of the test segment, the intersection 
point and the other points are ’'remembered 1 ' . When a second intersection 
occurs at the same point, the other end of the new test segment is used 
with the remembered end-point value to construct a new segment which is 
then checked for intersection with the current segment. 

In Figure 24, the current segment is AB . When segment CE 
is examined, an intersection is "remembered” for point E and the 
opposite end point C is remembered. When DE is examined, the inter- 
section at E is detected. Since there is already an intersection at E, 
the opposite end point D and the stored end point C are tested as a new 
segment CD. In this case the constructed line results in no intersection. 
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INTERSECTION AT AN END POINT OF A TEST SEGMENT 
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The same procedure is repeated for FG and GH , but in this case the con- 
structed segment FH results in the detection of an intersection. Segment 
GH is then processed as in any other detected intersection. Segments CE, 
DE, and FG were treated as if no intersections had occurred (other than 
remembering the end points). 

Before calculating the coordinates of the intersection of 
the two segments, a test is made to determine which segment lies in 
front of the other. Only the coordinates of those intersections where 
the current segment is losing need be calculated. Figures 25 and 26 
show how this determination is made. 

A sighting plane is constructed using the focal point and 
the two end points of the edge corresponding to the current segment. 

The observer ,, sights ,! along this plane when viewing the edge in space. 

The intersection (piercing point) of the sighting plane and the edge 
corresponding to the test segment is then determined through the special 
test for the intersection of a line and a plane. Another line is con- 
structed in the sighting plane connecting the focal point and the 
piercing point. This line is then tested by the implied vorticity test 
for intersection with the edge corresponding to the current segment. If 
an intersection occurs, the current segment is winning because the test 
segment lies on the far side (from the observer’s position) of the cur- 
rent segment. When no intersection occurs, the current segment is 
losing since the test segment lies between the observer and the current 
segment . 

Figure 25 shows how the situation of one segment behind 
another can occur. Figure 26 is reduced to three segments and the 
focal point. AB is the edge corresponding to the current segment. 
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The sighting plane is determined in three dimensions by the focal point 

0 where the observer is located and the end points of AB . The sighting 

plane is extended so that the intersection of EF and the plane can be 

seen. Exam segments CD and EF intersect the sighting plane at points 

P and P . Constructed line segment OP does not intersect with the 
CD Er CD 

current segment AB , thus indicating that CD is in front of AB . However 

OP does intersect with AB and this indicates that AB lies in front of 
Er 

EF. 

The coordinates of the point of intersection can be con- 
verted to picture plane coordinates through the use of the homogeneous 
transformation matrix. The coordinates of the losing intersections are 
necessary to determine where the nature of the current segment changes. 
The point-slope form of the line equation in the two dimensions of the 
picture plane can also be used to determine where two segments meet at 
a common point. When using slopes the infinite slopes of vertical lines 
must be avoided. This is accomplished by assigning a large number as 
the slope of a vertical line. 

Overlapping segments present a special case of multiple 
intersections. The various situations of overlapping segments were 
discussed previously in this chapter in the section on Implied 
Vort ici ty . 

c. Determination of the Nature of a Near Point (TSTNNP) 

On the rare occasion that a losing intersection occurs at 
one of the vertices of the current segment, it becomes necessary to be 
able to test a point a small distance away from the vertex to resolve 
the ambiguity shown in Figure 27. 
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THE END POINT AMBIGUITY 
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Here the current segment is line AB which intersects line 
CD at B. Assume B is losing with respect to line CD. The ambiguity 
here is whether line AB is going behind or emerging from the surface 
bounded by CD. TSTNNP resolves the ambiguity (Flowchart 13). 

The subroutine (TSTNNP) is much the same as VRTNTR except 
that only a few faces need be checked. Since each segment has associ- 
ated with it two faces , only a maximum of two faces need be checked for 
every intersection at the node. A set of faces belonging to all the 
intersections at the node is determined by combining the one or two 
faces for each intersecting segment (one face may be hidden). The 
nature of the specified point is then tested with regard to this set 
of faces in the same manner as VRTNTR tests all faces. 

A working list of blocking faces is kept while examining 
a segment. Those faces found to be blocking the near point are com- 
pared to the working list of blocking faces. Faces which are a part of 
both lists remain. Faces in the working list not found while testing 
the near point are deleted and faces found in the test but not in the 
working list are tested to determine if the face lies between the test 
point and the observer. If the face blocks the point it is added to 
the working list. 

d. Scissoring the Picture (WINDOW) 

As each end point is determined for the output line list, 
subroutine WINDOW (Flowchart 14) is called to "crop 11 the picture. 

Portions of the picture may extend beyond the normalized boundaries of 
the frame, and this cropping allows the portion of the picture within the 
frame to be drawn without distortion while eliminating that portion of 
the picture external to the picture frame. 
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There are a number of cases possible for the position of 
any given line with respect to the picture frame. Figure 28 shows the 
possible cases with the line number corresponding to the case. WINDOW 
identifies which case exists and takes the appropriate action. Each 
line has a start and an end point which must be separately processed. 

Line 1 requires no action. Both ends of the line are 
within the frame. Line 2 is the condition where the line lies entirely 
above (below, or to one side) of the picture frame. In this case the 
line is simply "erased 11 . Line 3 also lies outside the picture frame but 
the detection of this condition is more difficult. Intersection with 
the vertical border is calculated and if the intersection exceeds the 
picture frame bounds, the intersection with the horizontal frame is 
calculated. If this also exceeds the picture frame bounds, the line is 
erased since no part of it can lie within the frame. Line 4 is treated 
as Line 3 except that in this case the intersection lies within one of 
the frame boundaries. The intersection of the line with the frame be- 
comes the new end point of the line in the output line list. The pro- 
cedure is repeated for the end point. Line 5 is similar to Line 4 
except that one end point is already inside the picture. 

When determining which lines lie entirely above, below, or 
to one side (case 2), both the start and end points are used. In case 
3 the end point need not be checked since no intersection is possible, 
once it has been established that there is no intersection from the 
start point. In cases 1, 4, and 3 both start and end points are checked. 

The result is that each line segment extending beyond the 
frame is cut off at the frame boundary. 
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9 . Examination of the Segments (CMPUT) 



With all the preliminary steps completed, all that remains is 
to examine each on-view segment over its length to determine which 
portions of the segment are visible and therefore should be drawn and 
which portions of the segment are hidden and therefore not visible and 
should not be drawn (Flowchart 15). 

To accomplish this examination methodically, the first on-view 
segment has the nature of the initial vertex tested by VRTNTR. Each 
on-view segment starting with this node is then examined in turn. Losing 
intersections are determined by a call to LNTRSC . If no losing inter- 
sections are detected and the initial vertex is visible, the entire 
segment is visible and the nature of the final vertex is the same as that 
of the initial vertex. 

If intersections are detected, it must be determined if any of 
the intersections occurred at the initial vertex. If intersection did 
occur at the initial vertex, TSTNNP must be called to test a point near 
the vertex and the working list of blocking faces is modified to reflect 
the nature of the near point. 

The draw flag is set whenever no faces block a segment from 
view and is reset whenever faces block the portion of the segment being 
examined. When setting the draw flag, the starting points for the out- 
put line are entered in the output list. When resetting the draw flag, 
the end points are entered in the output list after a call to WINDOW 
to crop the line to fit into the picture frame. (However, when the 
test of a point near the initial vertex causes the draw flag to be 
reset, the initial point of the line is deleted since no line exists.) 



Ill 





Set draw flag when 
working list is 
empty. Call WINDOW 
to crop visible line 



FLOWCHART 15 
SUBROUTINE CMPUT 



112 




The segment under examination is now traversed to the point of 
the first intersection. If no more intersections occur, the segment is 
drawn or not drawn according to the working nature. The number of 
intersections at the final vertex is detected and at any time that the 
number of intersections remaining equals the number of intersections at 
the final vertex, there are no more intervening intersections and the 
final vertex can be tested by TSTNNP for a change in its nature. 

The intervening intersections are used to change the nature along 
the segment by using the one or two on-view faces associated with each 
intersecting test segment to modify the working list of blocking faces. 

If the list contains a face that is one of the two defining faces of a 
segment, that face is deleted from the list. If the list does not con- 
tain the face, the face is added to the list. (See LNTRSC for an 
example . ) 

If more than one intersection occurs at the same point, this 
fact must be detected. Three cases are possible when more than one 
intersection occurs. Figure 29 shows the three cases. The inter- 
sections occur on the picture plane and in each example the inter- 
section is losing for the isolated segment. 

The intersection at occurs because two other segments also 
intersect at P^. All three of the edges are at different distances 
from the observer. These intersections are processed as two differ- 
ent intersections chat just happen to both occur at P^. 

The multiple intersections at P^ and P^ occur because the point 
of intersection is a corner, itself the intersection of three edges. 
Segment CD and one of the segments of the corner intersection overlap 
between the intersections. Both faces defining the edge corresponding 
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to the overlapping segment are added to the working set of blocking 
faces when arriving at from point C. Both faces are subtracted when 
leaving and proceeding towards D, 

The multiple intersections at P^ occur because the point of 
intersection is again a corner. This case differs from the previous 
example in that segment EF does not overlap any of the other segments. 

To determine which face or faces should be added, a semi-circle is con- 
structed around the intersection (either direction is equally satis- 
factory) and intersections with the semi-circle are tested as single 
intersections. The semi-circle is in effect constructed through the 
use of the implied vorticity test and restricting the intersections to 
one side only. 

When all intersections before the final vertex have been pro- 
cessed, only the final vertex remains. If no intersections occur at 
the final vertex, the examination of the segment is complete. If 
intersections occur at the final vertex, a point near the vertex has 
a nature already known. TSTNNP is then used to find the nature at the 
vertex. The nature of the final vertex is entered in column 13 of ARRAY 
if not already known. 

The next segment starting with the same node is then processed 
or if no other segments start with this node, the next on-view segment 
in the list is processed until all segments have been examined. 

10 . Preparation for a New View (ERASE) 

Before processing a new view, column 13 is reset to zero for 
both integer values. This is necessary because the contents of column 
13 indicate whether or not the nature of the associated node is known. 
The negative sign in the second integer of column 9 which indicates 
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that the segment has been examined is removed. If ALTER changed the data 
structure, ERASE calls subroutine LINES to restructure the original line 
lis t . 



E. SUMMARY 

The hidden-line removal algorithm presented here is flexible 
and general so that it is easily tailored to specific applications. 

The algorithm could be easily adapted for on-line structure modification 
or it could be adapted for rapid calculation for display of a restricted 
set of views. A single object with no concave dihedrals that is always 
in front of the observer can be displayed after processing for hidden 
surfaces (HDNSRF) by connecting the end points of the visible lines and 
cropping those lines . 

The entire algorithm has been committed to a FORTRAN IV program. 

The algorithm holds whether it is committed to software or hardware or 
to a combination of the two. If assembly language were used, the 
greater flexibility would allow flags to be used more effectively and 
to a greater extent. However the ideas advanced by the algorithm 
hold regardless of the method of implementation. 
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VII. SUMMARY 



An introduction into the basic concepts and requirements encountered 
in the field of three-dimensional computer graphics has been presented. 
Techniques were developed for presenting the display in two dimensions 
of real-space three-dimensional objects. Transforming the coordinates 
of real space into two-dimensional perspective space was the subject of 
chapters II and III. Chapter IV introduced the requirements for 
structuring data to fit the application at hand, beginning with the 
simple case of two-dimensional coordinate storage and advancing to the 
three-dimensional case. Since contour lines are relative to the field 
of computer graphics in three dimensions, chapter V introduced basic 
concepts that may be the basis for further study and development. A 
study in three-dimensional computer graphics is not complete without 
an investigation into the removal of hidden lines. Chapter VI presents 
an algorithm for the elimination of all lines (or those portions of a 
line) not visible to the observer. 

A. THE TRANSFORMATION 

The computer can be utilized to obtain perspective views of three- 
dimensional objects from any specified angle and position. The three 
dimensions of the real world are transformed into the two dimensions 
required for a drawing on a plane surface. To minimize the number of 
points that must be transformed, it is convenient to approximate an 
object under view by line segments corresponding to the outline contours 
of the object. If the object is constrained to be approximated by inter- 
secting plane surfaces, the line segments will all be straight lines. 
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A line is then transformed by transforming the end points and connecting 
the transformed points by a straight line. 

The transformation of a point is accomplished by post -mult iplying 
the coordinate vector of a point by a 4 x 4 matrix. A fourth homogeneous 
coordinate (equal to 1.0) is added to the coordinate vector to make the 
multiplication compatible. The time required to transform a picture is 
thus dependent only on the number of defining points in the picture. The 
conversion time was approximately 600 microseconds per point after the 
matrix had been determined. (All times are approximate and are in ref- 
erence to the IBM 360-67 computer located at the Computer Facility, Naval 
Postgraduate School.) The calculation of the transformation matrix is 
independent of the picture complexity and is obtained as the product of 
two rotation matrices. Direction cosines are used to determine the ele- 
ments of each of two rotation matrices. The time required to determine 
the entire transformation matrix was 20 milliseconds. Associated with 
the computation of the matrix is the determination of the location of 
the focal point and three points in the focal plane in terms of the 
coordinate system used to describe the object under view. The time 
required for this computation was approximately 16.5 milliseconds. 

These positions are needed in the processing for the removal of hidden 
lines . 

B. DATA STRUCTURE 

In the field of three-dimensional computer graphics, data can be 
stored in many different ways. There is no one best way. For a specific 
application one method may be better than another but many of the same 
elements exist in all methods. Chapter IV discussed requirements in 
storing data and some methods to meet the requirements. Two requirements 
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which are generally conflicting are that the data be readily available 
and that the data be efficiently stored. 

In storing the data for the developed program three factors were 
considered. Entering data must be a simple process and must not be 
confusing to the user. The data must be available quickly and the data 
must be compactly stored. Compromise on all three requirements had to 
be made. Accessabi li ty of the data was compromised the most to keep 
from imposing even greater dimensioning requirements on the user. The 
subroutine FACES causes a search to be made of existing points to deter- 
mine if that point is already entered . Thus as the number of points 
already entered increases, the time to enter a new point also increases. 
For the 12 point L-shaped block example in the computer output section 
(Figures 32, 33, and 34) the time for entering the points was approxi- 
mately 0.158 seconds. For the 62 point aircraft carrier (Figures 35-39) 
the time for entering points was 1.07 seconds. The local computer 
system does not read directly from the card reader but instead loads 
the output of the card reader on discs for processing. The above times 
therefore do not reflect access time to the card reader. 

When the points and other necessary data have been entered for all 
the faces, LINES is called to construct the line structure in storage. 

Each new line that is to be entered is first checked with all lines al- 
ready entered so that the same line will not be entered twice. As the 
list of lines grows, so does the search time. 

When all lines have been entered, each line is checked to determine 
if it is a concave dihedral. CCVCVX does this to complete the "permanent" 
structure of the object in the data array. CCVCVX calculates normals for 
each surface and therefore is in part dependent on the number of faces. 
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Each line is then checked so that the time for the second part of this 
subroutine is dependent on the number of lines. The time to complete 
the permanent structure through the combination of LINES and CCVCVX is 
39 milliseconds for the L-shaped block and 0.627 seconds for the air- 
craft carrier. The L-shaped block is composed of 32 surfaces and 93 
lines . 

The object is now fully described in the data array and is completely 
independent of any view specified (with the exception of having a portion 
of the object behind the viewer). 

C. HIDDEN- LINE ELIMINATION 

The hidden lines are removed in two steps. In the first step, HDNSRF 
detects those surfaces which face away from the observer. Lines on these 
surfaces which cannot be seen by the observer are eliminated. All lines 
thus hidden by the object* s own volume are eliminated. Each projected 
face must be checked, so the process is dependent in part on the number 
of faces and in part on the number of lines that must be checked. The 
L-shaped block is processed in 5.5 milliseconds and the aircraft carrier 
is processed in 24 milliseconds for this portion of the hidden-line 
remova 1 . 

Alteration of the structure to terminate lines in the focal plane 
takes 2 milliseconds for the L-shaped block and 8 milliseconds for the 
aircraft carrier when no change is made. Each visible line must be 
checked to determine whether or not it should be terminated. In the 
case of the fifth view of the carrier (Figure 39) where the aircraft has 
landed on the deck, eight lines were terminated with new points lying in 
the focal plane. The total time for ALTER in this case was 18 milliseconds. 
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The second step in removing hidden lines is done by examining each 
segment not yet eliminated over its length and drawing that portion 
which remains in view. During the process of examining a segment, the 
intersection with every other segment must be determined. Only those 
intersections which affect visibility of the segment under examination 
are noted. This results in the test being done nl (number of lines) 
times for each segment. The test must be made for all segments not yet 
eliminated. Additionally the nature of the starting vertex must be deter- 
mined as well as the nature of any vertex not found during segment exam- 
ination. The time necessary to determine the nature of a vertex is 
dependent on the number of lines also. The time required for the sub- 
routine CMPUT is therefore related to the square of the number of lines 
in the structure. This is only an approximation since the path taken is 
view-dependent. The L-shaped block is processed in an average of 77 
milliseconds and the aircraft carrier processing time varies between 1.5 
seconds and 2 seconds, depending on the view. The program can be modified 
at the expense of storage to allow intersections of the intersecting seg- 
ments to be saved and thus testing half as many lines. By allowing 
reversed examination of a line, some calls to determine the vertex 
nature could be eliminated. 

D. THE COMPUTER OUTPUT 

Three views of an L-shaped block are given in Figures 32-34 in the 
computer output section. Five views of an aircraft carrier are given 
in Figures 35-39. The pictures were drawn by the CALCOMP Plotter at the 
Computer Facility, Naval Postgraduate School. Figures 36-39 form a 
sequence as if a high speed aircraft were approaching for a landing, and 
in the final view (Figure 39) the aircraft is on the deck. 
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Associated with each Figure is a set of data making up a table. Each 
table has five parts. Part (a) is a listing of the parameters for the 
view following. Figure 30 is a two-dimensional plot of position for the 
landing approach shown in the last four views of the carrier. Part (b) 
of each table is the listing of the nodes and associated information of 
the data array. Part (c) is a list of the lines and part (d) is a pair 
of lists, LSTFAC and LSTBFC. LSTFAC lists the points in the order entered 
(reading from left to right). LSTBFC lists the faces blocking various 
nodes. Pointers in the node data point to LSTBFC. Part (e) of each 
table is a listing of the output line list available for use by any out- 
put device. 

E . CONTOUR LINES 

The treatment of contour lines presented in chapter V was included 
because contour lines are very much a part of three-dimensional com- 
puter graphics. Contour lines have not received a great amount of 
attention because it has been easier to avoid the problem than to 
develop techniques for working with such lines. Display of contour 
lines has also been a problem. With the ability to obtain perspective 
transformations the display problem becomes one of finding a convenient 
way of handling the lines. When techniques are developed, the contour 
lines can be displayed in perspective with hidden lines removed as with 
the plane -surfaced objects used here. 

F. APPLICATIONS 

The potential applications of the perspective transformation and the 
program for hidden- line removal are many. Two examples are given in the 
computer output section. In one case just a simple display of an object 
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POSITIONS FOR CARRIER VIEWS (2-5) 



from various aspects was shown. The second case allows movement of both 
the object under view and the observer. 

The program as developed may be used to display any three-dimensional 
object or structure that can be described by plane surfaces. The crystal 
lattice structure of a semiconductor could be shown as easily as the 
view of the aircraft carrier. The focal length would have to be changed 
to correspond to the size of the picture being taken. The print of the 
picture being taken will always be the reciprocal of the scale factor 
times 1/2 in the units used to measure the focal length. Therefore if 
it is desired to view data measured in microns, the focal length should 
be in microns . 

The computer not only acts as a camera, but acts as a variable size 
camera where both the lens and area of the focal plane can be varied. 

The computerized camera is completely mobile and will present a picture 
from the specified orientation according to the data that was entered 
into and resides in the data array. 

G. DEVELOPMENT 

The elements for perspective display have been presented. Additional 
work may extend the developed programs in a number of ways. 

1 . Simulators Using Displays 

For specific applications, the program as developed can be 
tailored to operate at faster speeds. This is especially true if the 
program or a part of it is committed to assembly language. Additional 
flags can identify certain lines that need not be checked. Additional 
lists in memory can speed the search for points or lines. By bit man- 
ipulation, the list of blocking faces can be disposed of and the 
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information can be stored in just a few computer words where each bit 
identifies one face. Special-purpose computers can speed such a system 
where logic choices determine paths and where logic choices are based on 
comparisons. If one section of a computer can handle the refresh require- 
ments of the display system and another section can update in fractions 
of a second, an apparent real-time system could be developed. Small 
angular changes in pitch, roll, and yaw can be handled by shifting or 
rotating the picture already formed. For small angles the results are 
the same as recalculating the entire picture. These quickened responses 
could be superimposed on the calculated picture between computations of 
new views . 

2 . On-Line Computer Graphics 

The elements contained in this study can be applied to modifi- 
cation on-line of the item under view. The feature of adding surfaces 
already exists, though a modification would be desirable to keep LINES 
from redrawing already established lines. A simple flag should remedy 
that situation. Deleting surfaces would take additional work in 
identifying the surface and lines to be removed and in closing up any 
holes left. 

3 . On-Line Authorship 

Just as text material can now be written on line and formatted 
by the computer, the insertion of pictures with the text material would 
be a tremendous aid when developing new material. The writer could have 
his drawings done while the ideas are fresh in mind and formatted to 
proper size by the computer. 
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4. Extensions to Curved Surfaces 



The next class of objects in the hierarchy of complexity are 
those defined by curved surfaces. An extension to include the curved 
surface is a natural step although a formidable one. 

5 . Tactical Displays 

Three-dimensional displays may have significance in displaying 
tactical situations. In this case, some study must be extended towards 
the determination of the best method of representing the information 
without confusion. The ability to move around in space allows a study 
of the tactical situation from different aspects. 

6 . Display of Surfaces as a Function of Two Variables 

If the problem of handling contour lines can be resolved for 
large numbers of points , surfaces which are the function of two vari- 
ables could be studied with greater effect than now possible. This is 
an area where much work still needs to be done. 

H. FINAL 

Throughout each application the basic transformations have been on 
points which in turn determine the lines of the outlines. Transformation 
of points is simple and fast. However the connection of the points is 
less simple and becomes time consuming as picture complexity increases. 
Hardware and assembly language can reduce the time required. The com- 
plexity is overcome by following the algorithm presented although 
processing time will increase approximately in proportion to the square 
of the number of lines defining the object. 
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APPENDIX A 



GLOSSARY 

ALPHA The angle of rotation, u into v about the w axis of the 

object. This corresponds to the object's yaw. 

BETA The angle of rotation of w into u about the v axis of the 

object, corresponding to the object's pitch. 

COMPUTED NODE All visible segments from this node have been examined. 

DIRECTION COSINES Cosines of the angles that the new axes (after 
rotation) make with the old axes (before rotation). 

These are different for the two cases of either Euler 
Angles or Fixed Angles. 

DISPLAY COORDINATES Division of the second and third perspective 

homogeneous coordinates by the fourth coordinate results 
in the horizontal and vertical display coordinates 
res pect ive ly . 

EDGE The intersection of two faces in three dimensions. The 

two-dimensional equivalent is the segment. 

EULER ANGLES The axes of an object turn with the object and all 
rotations are then about the new orientation of the 
axes. The specified order of rotation for this study is 
Alpha, Beta, and then Gamma. This order agrees with the 
use of Euler angles in aircraft coordinate systems. 

EXAMINED SEGMENT The segment has been examined for all intersections 
and drawing information for that segment has been 
computed . 

FACE The portion of a plane bounded by the edges and used to 

construct some object in three dimensions. The two- 
dimensional equivalent is the polygon. 

FIXED AXES ROTATION The axes of rotation do not turn. All rotations 
are about fixed axes which will not move. 

FIXED INERTIAL REFERENCE With no movement or rotation of either the 
viewing plane axes or the object axes, the object axes 
and the viewing plane axes correspond and define the 
fixed inertial reference. 

GAMMA The angle of rotation of v into w about the u axis of 

the object, corresponding to roll of the object. 
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HOMOGENEOUS COORDINATES Real-space coordinates are multiplied by 

some factor which then becomes the fourth homogeneous 
coordinate. In this floating-point implementation the 
coordinate is set to 1. For fixed-point implementation 
this factor can be a normalizing factor for each point. 

HOMOGENEOUS TRANSFORMATION MATRIX The 4x4 matrix which can be used 

to transform any four -dimens iona 1 homogeneous coordinates 
to perspective homogeneous coordinates. This matrix com- 
bines rotation, movement, perspective, scaling, and offset 
transformations . 

NATURE The set of faces that obstruct a node from sight. 

NODE A three-dimensional point, normally the intersection of 

two or more edges. The two-dimensional equivalent is 
the vertex. 

OBJECT AXES The coordinate system in which the object is referenced. 

The object is that which is to be displayed. The axes are 
labeled u, v, and w. 

OBJECT AXES MOVEMENT The movement of the object axes in respect to 
a fixed inertial position. 

OFFSET The distance from the center of the whole picture to 

the center of the enlarged picture. 

ORIENTATION OF THE VIEWING PLANE The angular rotation from a fixed 
inertial reference . 

PHI Angular orientation of the viewing plane about the 

x axis . 

PSI Angular orientation of the viewing plane about the 

z axis. 

SCALE The distance from the center of the picture to one edge. 

A normal picture (no magnification) has a scale corres- 
ponding to 1/2. A scale of 1/4 would be a magnification 
of 2. 

THETA Angular orientation of the viewing plane about the 

y axis . 

VIEWING PLANE AXES The coordinate system based on the viewing plane, 
such that the picture is contained in the yz plane and 
the focus is on the positive x axis so that the viewer 
looks into the negative-x half space. The observers 
position will always be the focal point. 

VIEWING PLANE MOVEMENT The movement of the viewing plane from a fixed 
inertial position . 
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WIRE FRAME 



A drawing showing all the lines whether or not those lines 
are hidden. The drawing appears as though the object is 
made of wires . 
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APPENDIX B 



FORTRAN IV PROGRAMMING DIFFERENCES 
Although the attempt was made to program the IBM 360-67 and the 
SDS-9300 as nearly alike as possible, some differences were necessary 
due to the individual characteristics of the two computers. The 
properties discussed here are those which caused differences in pro- 
gramming the two computers. 

A. INTERNAL SUBROUTINES VERSUS ENTRY POINTS 

On the IBM 360-67, entry into a subroutine is allowed through the 
use of an entry statement. The statement takes the same form as a 
subroutine statement except that ENTRY is used in place of SUBROUTINE. 
Arguments are allowed if desired. However, no subroutine may be called 
by itself through any of its entry points (not reenterant) . ENTRY 
statements encountered during the execution of a program are treated 
as CONTINUE statements. 

On the SDS-9300, no ENTRY statements are available but internal 
subroutines are allowed. Internal subroutines are similar to the usual 
subroutine except that no END statement separates those subroutines 
internal to a larger subroutine. During execution, the program is not 
allowed to run through any SUBROUTINE statements. 

The use of the entry points and internal subroutines allows the 
named variables to be available anywhere in the group of internal 
subroutines. This allows entry into the various routines without the 
need for a long string of calling arguments. A blank or named common 
would have to contain many variables to be used for this same purpose. 
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In both computers the main subroutine must be called before calling 
an entry point or an internal subroutine. The entry points on the IBM 
computer were treated as internal subroutines in this application. 

Since the IBM-computer program cannot enter any of its own entry 
points, those subroutines which are called while executing an internal 
subroutine must be placed in a second subroutine with internal sub- 
routines (entered by ENTRY statements). Thus the subroutines in QSCRB1 
are called by the internal subroutines of DESCRB in the IBM-computer 
program. This was not necessary for the SDS computer program. 

D. DO LOOPS 

DO loops on the SDS-9300 computer are tested before entering and if 
the index value is greater than the terminal value (positive incre- 
menting) the loop is not executed at all. In the case of the IBM 
computer DO loops are always executed at least once since the index is 
not checked until the end of the loop. This made it necessary to insert 
protection statements wherever the possibility existed that the terminal 
value might be less than the index value. 

C. WORD LENGTH 

Integers on the SDS computer are each one computer word (24 bits) 
long. Real numbers use two computer words and double precision uses 
three computer words. The IBM machine uses four bytes for both real 
numbers and integers unless otherwise specified. Specifying INTEGER*2 
will cause the specified quantities to be represented as two-byte 
integers. However no library functions can be used with two-byte 
integers. The variables in two bytes must first be converted to four- 
byte integers before even the absolute value can be found. 
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D. MULTIPLE ASSIGN STATEMENTS 



The SDS computer allows the use of multiple assignments such as 

A = B = C = 0.0. 

When convenient, these multiple-assign statements were used in programming 
the SDS-9300 computer. 
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APPENDIX C 



USING THE PROGRAM 

Although there are differences in coding between the computer pro- 
grams due to the differences discussed in Appendix B, the use of the 
programs is quite similar. Since only minor differences must be taken 
into account, this discussion will apply to both computers. The excep- 
tions will be note<j. 

The computer programs for both computers may be found following the 
Appendixes and preceeding the Bibliography. These may be referred to 
for illustrative purposes. 

A. DIMENSIONING REQUIREMENTS 

The user must dimension the following arrays with dimensioning 
statements similar to those listed. 

DIMENSION ARRAY (N, 13) , IARRAY (2 ,N, 13) ,FN0RML(N,3) 

DIMENSION LSTFAC (NT) , LSTBFC(l) 

DIMENSION XSTART(NL), YSTRAT(NL) , XEND(NL) , YEND(NL) 

All of the integer variables must of course be replaced by the 
appropriate integer. The integers are defined as minima, and may be 
larger without any degradation in performance. 

N is equal to or greater than the number of different points used to 
describe the object. 

NT is equal to or greater than the total number of all points entered 
Every point is counted in this case each time it is entered. For example 
if the object were a cube bounded by six faces with each face determined 
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by four points, the total number of points entered would be 4 x 6 = 24 , 
although N, the number of different points would be 8. 

If however, part of the viewed object will be behind the observer, 

N must be increased by one for each line that passes through the 
observer's plane since additional points are computed to determine 
where each line should terminate. 

NL is equal to or greater than the number of lines that will be used 
to draw the finished picture. 

For the IBM 360-67, IARRAY must be specified to be a two-byte integer 
array (i.e., INTEGERS IARRAY). IARRAY must overlay ARRAY such that two 
words in IARRAY occupy the same length as one word in ARRAY. 

Two EQUIVALENCE statements are required. The statement 
EQUIVALENCE (ARRAY (1,1), IARRAY (1,1,1) ) 
will properly align the real array and the integer array. This statement 
is mandatory in this computer program. 

The second EQUIVALENCE statement 

EQUIVALENCE (FN0RML( 1 ,3) , LSTBFC ( 1) ) 
is used to conserve space by using a portion of the FNORML array for 
different purposes in different sections of the computer program. If 
this EQUIVALENCE statement is not used, LSTBFC must be dimensioned large 
enough to hold all of the blocking faces (a number which varies with the 
object and the view). The value of NF should generally be large enough 
for the array LSTBFC. 

B. NAMED COMMON 

The program requires the use of a named common which holds the angles 
and positions of the object and of the observer, as well as certain other 
information . 
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The COMMON statement is 



COMMON/SDFB/ ALPHA , BETA , GAMMA , PS I , THETA , PHI , OB JMV (3 ) , 
1VIEWMV (3 ) , FOCUS ,YOFF,ZOFF,SCLE,HMATRX(4,4) ,OBSPOS(12) 



where 



ALPHA is object rotation about a vertical axis. 

BETA is object pitch. 

GAMMA is object roll. 

PSI is observer rotation about a vertical axis. 

THETA is observer pitch. 

PHI is observer roll. 

OBJMV is an array containing the three inertial coordinates of 
the origin of the object axes in an inertial frame. 

VIEWMV is an array containing the three inertial coordinates of 
the origin of the observer’s axes in an inertial frame. 

FOCUS is the focal length used to ’take' the picture. 

YOFF is the horizontal offset from the normal center of the 
picture . 

ZOFF is the vertical offset from the normal center of the 
picture . 

SCLE is the normalized distance from the center to the edge of 
the picture. With no offset this distance is 1/2. 

HMATRX is a 4 x 4 matrix which is used to transform each point 
to its value in the picture plane. This matrix is calculated 
once for each view. 

OBSPOS is an array which contains the locations of three points 
in the observer’s focal plane expressed in the object coordinate 
system. These positions are calculated once for each view. 



C. EXTERNAL STATEMENT 

The name of the subroutine which will be used to enter the object 
description will be passed as an argument in a call to subroutine DESCRB. 
The name therefore must be declared EXTERNAL. If the provided subroutine 
is to be used, the statement is 
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EXTERNAL READCR 



and this statement should appear before any executable statements. 

D. INITIALIZATION 

In the case of the SDS-9300, internal subroutines are used to take 
advantage of access to variables in a number of the internal subroutines. 
The IBM 360-67 program utilizes entry points to accomplish a similar 
characteristic. Both computers require an initial call to identify the 
arguments. This call need only be made once while using the program. 
Since the initialization procedure resets many flags and pointers, the 
call to DESCRB should only be made when a new object is to be described. 
Previous descriptions are lost. 

CALL DESCRB (ARRAY , IARRAY , FNORML , LSTFAC , N , READCR , 

1XSTART , YSTART ,XEND , YEND , NLINES , LSTBFC ,NUSED) 

All of the arguments have been previously introduced except NLINES 
and NUSED. NLINES is the number of lines drawn for the completed view 
and is less than or equal to NL. NUSED is the number of different 
descriptive points identified by the program and will be less than or 
equal to N. Both NLINES and NUSED are calculated within the program. 

Only that portion of ARRAY that needs to be cleared will be set to 
zero. ARRAY may be completely cleared before starting if desired, but 
it is not required. DESCRB will initialize pointers and set the angles 
defined above to zero. Positions of the object axes and the observer's 
axes will also be set to zero with one exception. The object will be 
moved 40 units away from the observer plane (focal plane). The focal 
length will be set at 1.5 units and the scale will be set to 1/2. Off- 
sets will be set to zero. Any desired changes in these values should be 
made after the initial call to DESCRB. 
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The observer looks into the negative half-space. Thus the object is 
initially placed at (-40.0, 0.0, 0.0). The remaining positive directions 
are to the observer’s right and up respectively. 

E. DESCRIBING THE OBJECT 

The object must be described by bounded plane surfaces called faces. 
Each face is described by listing the points which determine the bounds 
of the surface. The points must be listed so that the surface is always 
to the left when traveling from point to point. The first point for each 
face must be a corner point since the last point, the first point, and 
the second point are used to calculate an inward pointing normal and 
therefore cannot be allowed to be collinear. In each face each point is 
connected to the preceeding point and the final point is connected back 
to the first point. 

To enter the points of a face, the calling statement is 

CALL FACES 

and this statement must be used for each face. It is convenient to use 
a DO loop to enter the faces. 

DO 1 J=1 , NFACES 
CALL FACES 
1 CONTINUE. 

Of course NFACES must be an integer number or must be defined before 
invoking the DO loop. Each face is then entered in turn using the sub- 
routine specified in the initializing call to DESCRB. If a subroutine 
other than READCR is used, the subroutine must have dummy arguments that 
correspond to the arguments used in READCR to be compatible with the pro- 
gram. Two arguments are necessary. The first is an integer variable and 
the second is a single-subscript array of real numbers dimensioned for 
three coordinates. (DIMENSION TEMPIN(3) is an example.) On the first 
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call to the subroutine, the number of points contained in the face is 

returned in the first argument. The succeeding calls return the three- 

dimensional coordinates of one point for each call where 

TEMPIN(l) = u 
TEMPIN(2) = v 
TEMPIN(3) = w 

in the object coordinate system. The subroutine will be called to read 
the point coordinates until the specified number of points have been 
read . 

If the subroutine READCR is used, the data will be read by the card 
reader. The first data card for each face contains the number of points 
in that face to follow. This integer must be right justified to column 
10. Each succeeding card contains the three coordinates of one point. 

The FORMAT expected for the coordinate points is 3F20.6. 

F. COMPLETING THE DESCRIPTION 

When all the faces have been entered, the points within each face are 
connected by 

CALL LINES 

followed by a subroutine to identify the concave and convex dihedrals. 

CALL CCVCVX 

This completes the structure within the computer. These subroutines 
are not called again until the object to be displayed is changed. As 
many views of the object as desired may now be developed by calling the 
succeeding subroutines. 

G. DEVELOPING THE PICTURE WITHIN THE COMPUTER 

Before continuing with the computation of the picture from the 
stored structure, any desired changes in values of the angles or positions 
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of the object and the observer must be entered. Changes in focal point, 
offsets, and scale should also be made at this point. When these vari- 
ables are set to the desired values (if not set, these variables remain 
set to the last value used, or if not previously used are set to the 
values described in the initializing procedure), the following calls are 
made . 

CALL ERASE 

CALL C 0NV3D(N, ARRAY, NUS ED) 

CALL HDNSRF 
CALL ALTER 
CALL CMPUT 

The call to ERASE need only be made after a previous view has been 
developed. Calling ERASE before developing the first view will not 
degrade the result however. This subroutine resets flags in the 
structure. It will also reconnect the lines to their proper points if 
the subroutine ALTER was used to modify the structure. 

The subroutine C0NV3D converts the three-dimensional points to the 
two-dimensional points in the picture plane. The arguments have been 
previously defined. Additionally C0NV3D causes the position of the 
observer to be calculated in terms of the object's coordinate system. 

This information is used during hidden-line removal. 

Some surfaces of an object will be hidden because they face away from 
the observer. Subroutine HDNSRF identifies those faces and eliminates 
them from further consideration for the view being developed. 

The call to ALTER only need be made when a portion of the picture 
is behind the observer. This subroutine cuts off the lines passing 
through the observer's viewing plane. If it is known in advance that 
this condition will not exist, ALTER need not be used. ALTER modifies 
the line structure for those lines passing through the observer's 
viewing plane. 
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The final call to finish developing the picture is to CMPUT. Each 
on-view line is traversed and those visible portions are specified to 
be drawn. Those portions not visible are suppressed. 

The form of the picture is now an array of NLINES lines with 
starting points in XSTART and YSTART and end points in XEND and YEND. 

Any type of display device may now be used for output using only this 
list of lines. 

H. CONVENIENCE SUBROUTINES 

Several helpful subroutines are included to aid the user. These 
subroutines are not necessary to obtain a picture, but are helpful in 
using the program. The calls to these subroutines are listed for 
reference . 

CALL DATSTR 
CALL LABEL 

CALL DRAWVP (NLINES , XSTART , YSTART , XEND , YEND) 

CALL DRAWIT (NLINES , XSTART , YSTRAT ,XEND , YEND) 

1. Subroutine DATSTR 

This subroutine will cause a printout of the data stored in 
ARRAY(N,13). The single-subscript arrays LSTFAC and LSTBFC will also 
be printed. The starting and end points of the lines in the picture plane 
are also printed (visible lines). 

2 . Subroutine LABEL 

This subroutine will printout the angles and positions of the 
object and the observer, and also the offsets, focus, and scale. This 
subprogram is convenient for data taking. 

3 . Subroutine DRAWVP 

This subprogram gives a line printer drawing of the picture 
developed and is useful in program development. Lines are drawn by 
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six different synbo Is - - i .e . , the first six lines are each printed with 
a different symbol, with a maximum of ten per line. Then the symbols 
are repeated for every six lines. DRAWVP is dimensioned for 100 lines. 

If more lines are drawn, the dimensions of DRAW and JXY in DRAWVP must 
be increased, but the picture will become quite confused. 

This subroutine requires another subroutine to be furnished. 

The required subroutine is VPLOT and is available in the primary library 
of the Naval Postgraduate School SDS-9300 computer. When using the IBM 
360-67 computer, the subroutine must be furnished. VPLOT was developed 
for the SDS-9300 computer at the Electrical Engineering Computer Labora- 
tory by Professor R. C. Johnson. Changes in the symbols used in plotting 
must be made in VPLOT. 

4 . Subroutine DRAWIT 

For a hard copy drawn by the CALCOMP plotter, the subroutine 
DRAWIT is convenient. This subroutine utilizes the local IBM 360-67 
NAVPGSCOL plotting package (Ref. 35). 

This subroutine should be developed when needed to fit a specific 
application. The subroutine DRAWIT is used as an example to show how 
the plotting package can be utilized in conjunction with the three- 
dimensional program. The title and identification specifically are 
user functions. Before using this subroutine, the user should consult 
the referenced technical note. 

An alternative to this subroutine is the IBM 360-67 DRAW 
routine which also utilizes the plotting package. DRAW is a much more 
general program and thus will be more expensive in computer storage and 
computing time. 
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I. INTERPRETING THE STRUCTURED DATA 



Certain problems will occur if the data is not correctly entered. 
The fastest way to check the data structure is to call DATSTR. Study- 
ing the printout may reveal where the problem lies. 

The program assumes that every line is the intersection of two 
planes. The two planes involved are stored in column 11 of the array. 
This requires that all lines must be entered at least once in each 
direction. The same points used to enter a line in one direction must 
be used to enter the line in the reverse direction. If a line is 
entered as two segments in one direction, it is necessary to have it 
entered as two segments in the opposite direction. A line can be 
drawn on a plane by entering the line first in one direction and then 
entering it in the reverse direction. Figure 31 illustrates these two 
s pec ia 1 cases . 




D E 



FIGURE 31 
ENTERING LINES 

Let surface 1 be ADECB and surface 2 be ABCFGH . The surfaces inter- 
sect along ABC. Line BG is a line to be drawn that lies entirely on 
surface 2. Surface 2 can be entered by entering the coordinates for 
the points in the order ABGBCFGH. The line BG is then entered 
as part of surface 2 first in the direction BG and then in the direction 
GB. When entering surface 1, the order can be A D E C B. Line CA must 
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be entered as two segments (CB and BA) since the surface that it inter- 
sects with is entered as AB and BC . 

In the data structure, column 9 is the line list which lists the end 
points of each line. Column 11 is a line list which lists the two sur- 
faces which intersect to form the line. Column 10 is a continuation of 
column 9 and column 12 is a continuation of column 11. At the end of 
the line lists one space is skipped and the remaining space is used for 
scratch storage during computation. If both integers are not filled in 
column 11, the line was entered in only one direction. The line must be 
entered in both directions. 

The minus signs are used to mark the various segments. Hidden lines 
are marked with a minus in the first integer of column 9. A line that 
has been examined over its length for hidden parts is marked with a minus 
in the second integer. A minus in the first integer of column 11 indi- 
cates the line is an intersection of two planes forming a concave 
dihedra 1 . 

Column 13 refers to the associated points. The first integer 
specifies the number of surfaces obstructing a point and the second 
integer is a pointer to the single-subscript array LSTBFC which identi- 
fies these surfaces. 

Some points will have zero for both integers. These points were 
hidden and thus never entered into the computation. Those points which 
have a zero for the first integer but a number for the second integer 
have no surfaces blocking them from view. The current pointer is always 
entered whenever the nature (number of faces blocking the point) is 
found as an indication that the nature is now known. 
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Column 8 is a list of the surfaces. The first integer specifies the 
number of points in the surface. The second integer is a pointer to 
LSTFAC array which contains each point in the order entered. A minus 
in front of the first integer indicates that surface is oriented away 
from the observer such that it is not on view. 

Columns 1-3 are the original coordinates entered. Column 4 is a 
depth column for the points in the current view. Columns 5 and 6 are 
picture plane coordinates of the points. Column 5 is the horizontal 
component and column 6 is the vertical component. The first integer 
in column 7 when set to 1 indicates the point is an end point of at 
least one concave dihedral. The second integer in column 7 is not used. 

If difficulties cannot be resolved by examination of the structured 
data alone, reference between the algorithm explained in chapter VI and 
the data structure should reveal the nature of the difficulty. 
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PARAMETERS FOR THIS VIEW 



OBJECT POS IT ION ( 1 I -2.5 

OBJECT POSITION (2) -5.'' 

OBJECT POSITION (3) -2.5 

OBJECT ANGLE ALPHA O.C 

OBJECT ANGLE BETA C.C 

OBJECT ANGLE GAMMA O.f* 



OBSERVERS POSITION (1) 40. C 
OBSERVERS POSITION (2) ■*'.0 
OBSERVERS POSITION (3) 40. C 
OBSERVERS ANGLE PS I 0.0 
OBSERVERS ANGLE THETA -35.'' 
OBSERVERS ANGLE PHI 0.0 
FOCAL LENGTH 1.5 
SCALF 0.5 
HORIZONTAL OFFSET r '.r 
VERTICAL OFFSET 0.0 



TABLE I 

PARAMETERS AND STRUCTURED DATA FOR L-BLOCK (I) 
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COLUMN 8 9 1C 11 12 



IDENT 


FACES 


LINE 


ENO 


POINTS 




INTERSECTING 


SURFACES 


1 


4 


1 


1 


-2 


6 - 


10 


1 


2 


8 


4 


2 


- 4 
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-3 


-8 


11 


1 


8 


5 
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9 


3 


-4 


-11 


12 


1 


6 


5 


6 


4 


-4 


13 


1 


-4 


9 - 


12 


7 


1 


8 


5 


5 


-4 


17 


-1 


5 


-4 


11 


2 


7 


7 




6 


-4 


21 


-5 


6 


3 - 


12 


-> 

t— 


4 


6 
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-6 


25 
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-6 


C 


0 


8 
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0 
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31 
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-3 


-2 


n 


3 
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1 


Q 


0 


( 


8 


-9 


-13 


6 


3 


5 


8 


4 


lL 


0 


C. 


9 - 


10 


0 


c 


3 


8 


3 
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11 


w 
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-7 


10 


r\ 

C 


0 


-4 


3 


n 


0 


12 


r 

V 


f 


-5 


7 


0 


0 


4 


7 


r. 


0 



1 2 

9 10 

1 1 4 

3 2 



LSTFAC 

3 4 1 5 

5 7 10 6 

3 12 4 11 

6 If 9 12 



6 2 7 

8 11 12 

8 7 5 



1 



LSTBFC 



XST APT 
0.247154 
0.247154 
0.259412 
0.259412 
-0.259412 
-9.259412 
-0.085727 
-0.0813C4 
-0.084591 
-0.084591 
0.242253 



VISIBLE LINES 



YST ART 
-0.5159J4 
-C .515904 
-0 .328994 
-C. 328994 
-C .328994 
-0.328994 
-C .168279 
-C .C 51 20 8 
C. 1 19954 
f . 1 19954 
-C .168231 



XEND 

0.259412 
-0.247154 
-0.259412 
0.242253 
-0.247154 
-0.211478 
-0.081304 
-0.084591 
-0 .09699 1 
-0.211478 
-0 .09690 1 



YENO 

-0.328994 
-0.515904 
-0.328994 
- 0.168281 
-0.51 59<~ 4 
0. 1 19954 
-G.0512C 8 
0.119954 
-0.168281 
0. 119954 
-0. 163281 
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FIGURE 32 
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PARAMETERS FOR THIS VIEW 



OBJECT POS IT ION ( 1 I 
OBJECT POSITION (2) 
OBJECT POS IT ION ( 3 ) 
OBJFCT ANGLE ALPHA 
OBJECT ANGLE BETA 
G3JECT ANGLE GAMMA 
OBSERVERS POSITION ( 1 ) 
OBSERVERS POSITION ( 2) 
OBSERVER S POSITION ( 3 ) 
OBSERVERS ANGLE PS I 
OBSERVERS ANGLE THETA 
OBSERVERS ANGLE PHI 
FOCAL LENGTH 
SCALE 

HORIZONTAL OFFSET 
VERTICAL OFFSET 



-2.5 

-5.C 

-2.5 



O.f 
-50.0 
30 .f 
6 ~ .0 
149 .' 
-46 . 5 

1.5 

n . 5 
O.C 

r 



TABLE II 

PARAMETERS AND STRUCTURED DATA FOR L-BLOCK (2) 
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COLUMN 




8 




9 


10 


11 




12 




IDENT 


FACES 


LINE END 


POINTS 


INTERSECTING 


SURF AC 


1 


-4 


1 


1 


-2 


6 -10 


1 


2 


8 


4 


2 


4 


5 


2 


-3 


8 -11 


1 


8 


5 


7 


3 


4 


9 


-3 


4 


11 -12 


l 


6 


5 


6 


4 


4 


13 


-1 


4 


9 -12 


7 


1 


8 


5 


5 


4 


17 


1 


-5 


-4 11 


2 


7 


7 


6 


6 


-4 


21 


5 


-6 


3 -12 


2 


4 


6 


8 


7 


-6 


25 


2 


-6 


0 0 


8 


2 


f 


n 
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6 


31 


7 


-8 


-2 0 


3 
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2 
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c 
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8 


-9 


-13 0 


3 


5 


8 


2 


10 


0 


C 


9 


-10 


e o 


3 


8 


3 


2 


11 


3 


C 


7 


-10 


0 0 


-4 


3 


0 


0 


12 


r, 

V.. 


c 


5 


-7 


0 0 


4 


7 


r 


0 



1 2 


3 


4 


1 


LSTFAC 


5 


6 


2 


7 


3 


9 1C 


5 


7 


1C 




6 


8 


11 


12 


9 


1 1 4 


3 


12 


4 




11 


8 


7 


5 


1 


3 2 

NULL SET 


6 


1C 


9 


LSTBFC 


12 













VISIBLE 


LINES 




XSTART 


YST ART 


XEND 


YENO 


-0. 108744 


-C. 148635 


-0.113668 


-0.026458 


-0. 108744 


-C .148635 


-0.017074 


-0. 269526 


-0.113668 


-C .026453 


0.198584 


C. 108657 


-0.113668 


-C.C26458 


-0.017877 


-C. 148361 


-3.017074 


-0. 269526 


-0.017877 


-C. 148361 


-1.017C74 


-C .269526 


0.199639 


-0.167261 


0.199639 


-C .167261 


0.437917 . 


-C. 448684 


0.199639 


-C .167 261 


0. 2C 8732 


-0.045214 


0.437917 


-C .448634 


0.459633 


-0.329762 


0.437917 


-C .448684 


0.531053 


-9.399352 


0.459633 


-0.329762 


0.208732 


-0.045214 


0.459633 


-C. 329762 


0.557009 


-0.279723 


-0.017877 


-C .148361 


0.208732 


-0.045214 


0.531053 


-C. 399352 


9.557009 


-0.279723 


0.198584 


C .108657 


0.557009 


-0. 279723 
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PARAMETERS FOR THIS VIEW 



OBJECT POS IT ION ( 1 I 
OBJECT POSITION 12 ) 
OBJECT POS IT ICN ( 3 ) 
OBJECT ANGLE ALPHA 
OBJECT ANGLE BETA 
OBJECT ANGLE GAMMA 
OBSERVERS POSITION (1) 
OBSERVERS POSITION (21 
OBSERVERS POSITION (3) 
OBSERVERS ANGLE PS I 
OBSERVERS ANGLE THETA 
OBSERVERS ANGLE PHI 
FOCAL LENGTH 
SCALE 

HORIZONTAL OFFSET 
VERTICAL OFFSET 



-2.5 

-5 

-2.5 



T.' 

■ 1 A 

t • 

- 5 3 • 0 
-50. ' 
5: .r- 

225. r 
-35. C 

f 

v' • V. 

1.5 



TABLE III 

PARAMETERS AND STRUCTURED DATA FOR L-BLOCK (3) 
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COLUMN 




8 






10 


11 




12 




I DENT 


FACES 


LINE END 


PG INTS 


INTERSECTING 


SURFACES 


1 


-4 
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-1 
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6 -10 
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8 -11 
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PARAMETERS FOR THIS VIEW 



OBJECT POSITION (1) 2000. C 
OBJECT POSITION (2) C.O 
OBJECT POSITION (3) 0.0 
OBJECT ANGLE ALPHA 60. C 
CBJECT ANGLE BETA O.C 
OBJECT ANGLE GAMMA 0.0 
OBSERVERS POSITION (1) O.C 
OBSERVERS POSITION (2) O.C 
OBSERVERS POSITION (3) 500. C 
OBSERVERS ANGLE PSI 190.0 
OBSERVERS ANGLE THETA -5.C 
OBSERVERS ANGLE PHI 0.0 
FOCAL LENGTH 1.5 
SCALE 0.5 
HORIZONTAL OFFSET O.C 
VERTICAL OFFSET G.O 



TABLE IV 

PARAMETERS AND STRUCTURED DATA FOR CARRIER (1) 
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FIGURE 35 
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PARAMETERS FOR THIS VIEW 



OBJECT POSITION (II 126.0 
OBJECT POSITION (2) 0.0 
OBJECT POS IT ION (3) 0.0 
OBJECT ANGLE ALPHA C .0 
OBJECT ANGLE BETA O.C 
OBJECT ANGLE GAMMA 0.0 
OBSERVERS POSITION (1) 1<U4.0 
OBSERVERS POSITION (21 151.0 
OBSERVERS POSITION (3) 112.5 
OBSERVERS ANGLE PS I 10. C 
OBSERVERS ANGLE THETA 0.0 
OBSERVERS ANGLE PHI 0.0 
FOCAL LENGTH 1.5 
SCALE 0.5 
HCRIZCNTAL OFFSET O.C 
VERTICAL OFFSET 0.0 



TABLE V 

PARAMETERS AND STRUCTURED DATA FOR CARRIER (2) 



164 



LU 

o' ^ rg in in it in in in in in in in in in in in in in in in in in so ' ^ in cn sO r- oc <r> oc oor <■ ^ r * or oo in c co 

rr r> 

t— if— 

<hhuCCOl UC OOuOCOCOOOOOOC'COhhhouCOUOOOOHgC 



X 

> 

o 

h^OOOHCi )hOOOCOCjOQhOhuOhhhhohhhOOOOOC .hG 0 ^C «0 

o 

o 

OLnr~*r^r^r-c\ja > vrr s -vOP w >tu>ror--r^-^o s sO.-«oma'ao>oinmmcor w <\j^Hino s 0 s c >t vOcnu 
rororvi^^t *-< try (Mfvjro 4* in c >t>frinmin>frNOsO.-im 

c cr O' ^ *«• cr r ^ oj oj c\j •-« (\j (\i o 0 s r- ^ in in >t csj rH cr> oo c c oo o cd c: oo oo cr 

ooooc *ooc oc *-k\i 

sOU « 

OOOOOOOOOOOOOCGOoOOOOOOOOOOOOOOOGOOOOOOO 
w I I I I I I I I I I I I I I I I I I I I I I I II I I I I I I I I I I I 

< 



CL 

c\j>* c\jmm>$*^c\j»-ih- *-h oo r- r- co ^ r^» (\i in 'Ooomrvj in income CnOooocoh 

lu go *-• in h- m or in go nC vO in in 0 s t\j m >t ^ oo co rr; in so r^- m >t nj >t >t ni so no in 0 s oo m 

or >f r-c^fwsoin st 'OvOcrr-sOO(\Jcrr-crmoc\J^H^HinsO<rvt— <msf fMrgst ininsO<\jog^<sO>r 
O rn (\i ^ o c* rn ro ^-i o c- c * O (\j o •-< f\j m >t >t >f <\M\J >t m ^ <m rvj ^ n i (\j <\j <\i ^ ^ c\j m 

in f— • ••••••«•••••••••••••••••••••••••••••••• 

OOOOGC C * *>C O^OOOOOGOOQooronr oonnryronrriGnor r> 

*-* I I I I till 

a 



>t O' so —* r- <m <m m >t (\J h- <\j oj oo in m o nj o O' o oo m o cr* mrg oj m co oo o oo oo <\j in .-i 
oo'Oinoornroh-o^roooin^to hv ao^ooc;oiria v mo'«oina'roo^inina'comc: 0 N CT'ir»^in 
Xcoinr^rmn^>t^-sO(Mpn^'^-in>tsOcMO>toooa*oof^>t^^orm>o 'Omr*or*-<\j cm comer* 
f- ^ o 0 s «-< m m nj ^ o in o o > 4 " m o oo o h* >* co r*- «m oo oo <\j >*■ >t h- © o r- >t > 4 * 



iuo'Nvj'oeaNSs 0 ^o^N>t *onjvOMD.-ioo^>toaao^'fr»-< 0 ' 0 '.-iinino^'fr o^^* 
Q h- oo <Mn in s° e ^ >t in i^ ^ 'O so in in in m m oo ^ >t h* oo a ^ r- r- ^ >t m m ro >o oo 

vrrv i 1 1 1 1 1 v 1 v 1 v 1 1 1 l ,v i vvvvvvv i vwvwwvw 



OOCOOOOOOOOOOOCOOOOOOOOOOOOOOOOOOOOOOO 
oOCOOOOCiOOCOOOOGCOCOOOOOOOOOOOGOOOOOCOOO 
UJOOOOOOCOOCOOOOOOOOOOOOOOOOOOOOUOOOOOOO 
hOOOOOUO OCOOOOOC'OGOOOOOOOOOOOCOOOcnncOOOCDOCCaDCO 

m< » •••••••••• t •••••••«••••••••• • 




OO OOOOOOOOOOOOOOOOOOUOOOOOOOOOOCOOOOUO o 

O CUOOOOOOOOOOOOOOOOOCOOOOOOOOOOOOOQOO o 
-Jo OOOOOOOOOOOOOCOOOOOOOOOOOOOCOOOOOCOO o 
<'OG*oooocoinNsoo^^mcM>ocooooi^inoooi^i^ooininininoGcoin 

• 

uinoin>f ^»-iu > ao<\nn>rinmm«-ioi^o>^<roo<Ni(M^mo< N Joo>t'r oocoaonj^^ i_>o 
•— *vt 4 , 'OfOfOh sOvONf^o ommmaoc7 v rH^H^-irHmin-H'OrHin>t— ^ in—i—i— < 

I/) I | HH | | | H | H H H HH HiHH 

Z II II 

LU 



a: 



!-» CToOOOOwOOuL'UOOuOOL'OuOOOOOOOCOOUOOOOOO 
a a'OUuOUOCOOOGOUOUOOOOOOOOOQOOGCOOOOOOO 
I ^OCOOOOOOOOGOOOOOOOOOOOOOOUOCOOOOOCOO 
UiULU^uOOaCvu^^OinoOOUUOUCUOuOUoOGOOGOOLCug 

p-HLU • ••••••••••••••••••••••••••••••••••»•••• 



oc o c o m in in oo so cm m co oo in o o oo oo r ^- <n > 4 “ ^ ao oo ao oo m m h- m m in 

x inoinosO'Tinininin'Oinmm<vrvi'r>tLrir>t^ocrcpcrcrtrcr'r 

h- f f ir 0 0 N uccor 0 o^O't 0 ' 0 ' 0000 'O^v 0 >Cs 0 f f '^^' 0 ' 0 v 0 ' 0 ' 0 'Os 0 s 0 s 0 ^v 0 m 



z 

rn 

DZ 

- jLUi-i(\jmNrinvor-“Oca'o*-^(Mm' 4 ‘inv 0 ^ooo s o*-«(Mm^in sor- aco'O—icvjm >tmsor- ooa'o 
OO ^HHHHHHHHHCsjf\jNryj(\jfvj(\j(\j(\jfvjmrnrorOfnfOrOfOfn^>t 

U*-« 



165 



Uj 

croor (;hc f cc^rg^mmmir.mmmmf: oi 'ior»or.oc jC>c cor oooc^f jr r 

|H H H 



<C-COHHOGNHHOC»UOOULHtOOC OOCOOuOOOUjC^OOOOO 
Z 



X 

> 

u 

hSuUUHHHHHt ^uOHC»hQOhOUHL OOuCOOOC -OC^Ot OfjOOOO 

> 

o 

u 



OcCCT*.j^v 0 o 00 O(Ma^ 00 CCOv 0 <M^^' 0 ' 0 h-Q 04 ' 

OC O' O *00 4 * <Mm 4 (M^N < ® ® 0 * 4 ® O 4 

O m m f\i f\j rsj a eg ^ rg h- O' ^ oj r\j o O' ^ 

C 4 4 rsj<\jc\j^c^o^^^^^^<\Jf\jc\j^^<-«iooc c onouo c oc , c o c anoc 

ou • •••••♦•♦•• 

OOGOOOOOOOOOOOOOOOOOOOOOOOOCOOOOOOCOCOOO 
UJ I I I I I I I I I I I I I I I I I I I I I I 



a 

eg® <\jsj-<^(\j4^rvjmaoa'^aoh-«»"»r\jm 4mm<\j 
uj 4 h- 0 s 4 ^mcoh- ^ O ' 4 m cnj aoirwmmr* m 
a: >0 ™ mm ® m r- 4 4 4 4 o m a> f*- o o 4 in o & 

DHfnomHOfVjm^fn^^rnMHH^fr^co^QOOOOOC QCCC oooooon 

IPiH- •••••••••••••••••••••••••••••••••••••••• 

OO^'' imc r 'Or Arr oo r OOO^Or*nr,ooOOO^C^O r >OO r OOHC 

~ i ’ • ” i iii' 

a 



4 m>omm®o ^4 m ao mao m cm 

4 ^ocMmo®maDm^oao^®oh-mmoo'm 
xmo' 0 ‘acmO'mc?'mo 4 40 fM' 0 ®h- 4 ^'<mm^ 

h cm 4 mmmmo 4 ^f-fM<rom 40 ^<Njmm*-i 0*000000000000000000 

^a. • • ••••••••••• 

UJW'roCO'OO^^flO^HOOM^Ka'nO'tCOOOOOOOOOCOOOOOOO 
QiTNH>o^HODooh^irif\ino 44 o*>mmcr 
r^h- 4 r'-r- 4 ^mr^ 4 mo s o N ®®f-r-®® 44 r- 
I I ^ I I | I II I I II 

I I | I I I I III 



oooooocoooocooooooo 
m ooooooooooooooooooo 
UJ OQGOOuOOOOOOOOOOCOO 
hOOOOOOOOOOOOOOOOOOOOOO 

m< 



ocooooc ocooooooooc 



ZOOCvOsflO^O'OO^^^^'O^^^^'O^OCOCCOOOCOCOGOCGCCC 

*-• rnmmmmmmmmmmmmmmmmmm 

o 

oc 

a 

o 

uoooooo oooooocooocoooo 

oooooo OOOOOOUOOOOGOOO 
JOOOOOO OOoOOOOO OOOOOO o 

<COlAOO^ClA^oOOO'fi<M^^®000'COOOOOOOOOOOOOCOGOO 

rvjar ♦ • • • ••••••••••••••••••••••••••••• 

□HNONHOOO^fO^'I’O^QNeC'HH^ingoUuUUOOOCOOOOuOOC 
>04 n 0 *-**~* 0 ' ®m>C'Of*-mmvo 4 
mill I | I I i 

Z I I 



UJ 

X. 

-OUGOUO O GOUQOGUGgOG^ 

QCOOJOO O OCCUGOOOijOO^ 
i oooooo o oooooo ooooocr 

UJOOOOOOOOOOOOOCOOOOOOfOOOOC 0OOOOOO00OOOWOO 



HUJ •••••••••••••••••••••••••••••••••••••••• 



QtoO'j’vO^^o^uN^oocoo^cocriruri^ooooooooooGuooocooo 
X 4 40 s 440* O' omrMCMmm 4 ®om®m 
kl omoom m mm®® O'croooCT'mm 



z 



DZ 

o uj ^ rsj m >* m ® a* c ^ m m ® r*- ao <r o ^ ™ m ^ m ® ^ €o ^ c ' ^ <Mm 4* m ® ^ ® O' o 

U~ 



166 



IDFNT 


FACES 


LINE END 


POINTS 


I NTERSECT ING 


SURFAC 


1 


36 


1 


1 


-2 


1 


-49 


1 


32 


32 


19 


2 


4 


37 


2 


-3 


25 


-51 


1 


32 


20 


21 


3 


4 


41 


3 


-4 


19 


-52 


1 


31 


21 


22 


4 


-4 


45 


4 


-5 


18 


-53 


1 


30 


-22 


23 


5 


-4 


49 


5 


-6 


17 


-54 


1 


29 


23 


24 


6 


-4 


53 


6 


-7 


16 


-55 


1 


28 


-24 


25 


7 


-4 


57 


7 


-8 


9 


-56 


1 


27 


25 


26 


8 


4 


61 


8 


-9 


8 


-57 


1 


26 


26 


27 


9 


4 


65 


Q 


-10 


-7 


58 


1 


1 


-27 


28 


1C 


-4 


69 


1C 


-1 1 


6 


-59 


1 


1 


28 


29 


11 


-5 


73 


1C 


-12 


-5 


60 


1 


1 


29 


3^ 


12 


4 


78 


12 


-13 


-4 


61 


1 


1 


-30 


31 


13 


-4 


82 


12 


-14 


-3 


62 


1 


1 


31 


32 


14 


-4 


86 


14 


-15 


C 


0 


1 


1 


r 


rs 

'j 


15 


-4 


90 


8 


-14 


-7 


n 


1 


1 


1 


1 


16 


4 


94 


9 


-16 


-72 


6 


1 


25 


28 


2 


17 


_ ■> a 


98 


16 


-17 


-25 


A 


1 


24 


2 


2 


1? 


-To 


1 18 


17 


-18 


-68 




1 


23 


3 


? 


19 


4 


128 


18 


-19 


-44 


0 


1 


22 


16 


2 


20 


-4 


132 


19 


-20 


0 


A 


1 


21 


C 


0 


21 


5 


136 


2C 


-21 


0 


6 


1 


1 


G 




22 


4 


141 


21 


-22 


0 


c 


-1 


9 




A 


23 


4 


145 


22 


-23 


r 


0 


-1 


2 


h 


6 


24 


4 


149 


-23 


24 


0 


r 


-1 


5 


0 


A 


25 


4 


153 


-21 


24 


"N 


n 


-7 


1 


c 


6 


26 


4 


157 


2f 


-25 


c 


c 


1 


21 


2 


A 


27 


-4 


161 


25 


-26 


0 


0 


1 


20 


c 


0 


28 


4 


165 


1 


-26 


0 


0 


19 


1 


0 


o 


29 


-4 


169 


22 


-27 


c 


A 


2 


9 


0 


A 


30 


-4 


173 


-27 


28 


0 


h 


-2 


18 


c 


5 


31 


-4 


177 


23 


-28 


c 


0 


5 


2 


r, 


3 


32 


-6 


181 


29 


-3C 


0 


0 


3 


18 


6 


0 


33 


0 


C 


3C 


-31 


o 


w 


3 


8 


■*> 


A 


34 


n 


c 


31 


-32 


0 


0 


3 


10 


e 


0 


35 


6 


c 


29 


-32 


0 


IJ 


4 


3 


o 


A 


36 




r 


-29 


33 


0 


0 


18 


4 


0 


0 


37 


6 


C 


-32 


34 


jl 


A 


4 


10 


0 




38 


0 


c 


-33 


34 


n 


c 


6 


4 


G 


0 


39 


0 


r 


-28 


35 


6 


A 

\«/ 


-5 


18 


n 


A 


40 


a 


c 


-24 


35 


0 


o 


7 


5 


h 


0 


41 


0 


c 


-34 


36 


0 


n 


6 


10 


C 


n 


42 


0 


r 


36 


-37 


0 


0 


6 


8 


0 


0 


43 


0 


C 


-33 


37 


6 


0 


18 


6 


0 


A 


44 


0 


C 


-35 


38 


0 


A 

V 


-7 


18 


0 


6 


45 


0 


c 


21 


-38 


0 


0 


9 


7 


c 


A 


46 


0 


c 


3C 


-37 


c 


0 


8 


18 


o 


6 


47 


0 


c 


31 


-36 


r 


0 


10 


8 


o 


3 


48 


0 


c 


-27 


38 


0 


0 


-18 


9 


0 


0 


49 


0 


c 


-39 


40 


0 


0 


11 


15 


0 


0 


53 


r 


f 


4C 


-41 


0 


n 


11 


16 




A 


51 


a 

J 


c 


41 


-42 


0 


5 


11 


12 


0 


0 


52 


0 


r 


-42 


43 


r. 


0 


11 


13 


c 


A 


53 


r> 


/*, 

i < 


-39 


43 


0 


A 


14 


11 


0 


0 


54 


6 


c 


42 


-44 


c 


0 


13 


12 


0 


A 


55 


0 


c 


41 


-45 


0 


0 


12 


16 


o 


d 


56 


5 


c 


-44 


45 


0 


0 


-17 


12 


c 


o 


57 


A 


c 


-43 


46 


0 


0 


14 


13 


0 


A 

•> 


58 


0 


c 


-44 


46 


0 


0 


-13 


17 


c 


0 


59 


n 

v 


c 


-39 


47 


n 


0 


15 


14 


a 


0 


6? 


0 


f 


—46 


47 


0 


0 


-14 


17 


0 


0 


61 


n 

V 


c 


-47 


48 


0 


0 


-15 


17 


o 


0 


62 


0 


c 


40 


-48 


0 


0 


16 


15 


A 

o 


0 


63 


0 


c 


-45 


48 


0 


n 


-17 


16 


rv 


0 


64 


0 


c 


-47 


49 


0 


6 


17 


32 


c 


0 



167 



COLUMN 


8 






9 


10 




11 




12 




IOENT 


FACES 


LINE END 


POINTS 




INTERSECTING 


SURFACES 


65 


'3 


c 


49 


-50 


r 


0 


17 


19 


0 


0 


66 


c 


c 


-5C 


51 


c 


0 


17 


2C 




0 


67 


0 


c 


51 


-52 


c 


A 


17 


21 


c 


0 


68 


0 


f 


52 


-53 


0 


6 


17 


22 


n 


0 


69 


rv 


c 


53 


-54 


0 


A 


17 


23 




0 


70 


5 


c 


54 


-55 


0 


5 


17 


24 


C 


0 


71 


n 

V 


c 


55 


-56 


c 


n 


17 


25 


c 


n 


72 


U 


c 


56 


-57 


c 


0 


17 


26 


0 


0 


73 


n 

>> 


c 


-57 


58 


n 


o 


17 


27 


0 


0 


74 


0 


c 


58 


-59 


0 


A 


17 


28 


f 


3 


75 


c 


0 


-59 


60 


c 


c 


17 


29 


0 


0 


76 




c 


-6C 


61 


c 


A 


17 


30 


0 


0 


77 


o 


c 


-61 


62 


0 


0 


17 


31 


0 


0 


78 


0 


r 

V 


-47 


62 


0 


c 


32 


17 


c 


A 


79 


L 


c 


-37 


38 


0 


0 


18 


18 


0 


0 


80 


c 


c 


-26 


50 


0 


0 


-19 


20 


0 


A 



LSTFAC 



1 


2 


3 


4 


5 


6 


7 


8 


9 


n 


11 


10 


12 


13 


12 


14 


15 


14 


8 


14 


12 


10 


9 


16 


17 


18 


19 


20 


21 


22 


23 


24 


21 


20 


25 


26 


23 


22 


27 


23 


29 


30 


31 


32 


33 


29 


32 


34 


24 


23 


28 


35 


33 


34 


36 


37 


24 


35 


38 


21 


30 


37 


36 


31 


22 


21 


38 


27 


34 


32 


31 


36 


39 


40 


41 


42 


43 


44 


42 


41 


45 


46 


43 


42 


44 


47 


39 


43 


46 


39 


47 


48 


40 


4C 


48 


45 


41 


47 


46 


44 


45 


48 


47 


49 


50 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61 


62 


38 


35 


28 


27 


38 


37 


30 


29 


33 


37 


26 


50 


49 


1 


25 


51 


5C 


26 


19 


52 


51 


25 


2 3 


18 


53 


52 


19 


17 


54 


53 


18 


16 


55 


54 


17 


9 


56 


55 


16 


8 


57 


56 


9 


7 


58 


57 


8 


6 


59 


58 


7 


5 


60 


59 


6 


4 


61 


60 


5 


3 


62 


61 


4 


3 


2 


1 


49 


47 


62 


















LSTBFC 












2 


2 


2 


2 


3 


3 


3 


2 


1 


26 


1 


2 


1 

















168 



<.-■ 0^-> J J f O 



VISIBLE LINES 



0 , 

0 , 

1, 

*3 

5 ! 

o 



0, 

0. 

0, 

) 

o, 

a 

o, 

3 



X ST APT 


YSTART 


XENO 


YENO 


254404 


-r .C«>30-.'1 


3.195166 


-C.C92681 


195166 


-f .1 92681 


O.T 77256 


-C . 114698 


377256 


-C .114698 


-3.063259 


-0. 114681 


063259 


-C .114691 


—3.458421 


-C. 191290 


458421 


-T . 1912^0 


-0.34135T 


-C .205875 


458421 


-0 .19120 


-0.458421 


-C . 194646 


341 35<“ 


-C.2L5 875 


-0.365197 


-0.222392 


365197 


-0 . 222 3 Q 2 


0.168131 


-0.222724 


365197 


-C .222392 


-0.225936 


-0.223324 


365197 


-£ .22239? 


-0.365197 


-0 .226399 


1 6 8 IT 1 


-C .222724 


O.C 96719 


-0.223604 


I 08 IOI 


-T .222724 


0.172651 


-C. 192715 


163101 


-C .222724 


0. 168191 


-C. 226737 


396719 


-T . 223 6 A 4 


0.077378 


-9.114667 


396719 


-C. 223 60 4 


-0.066092 


-0.223445 


366C 92 


-C .223445 


-O.C 05773 


-0. 114548 


366092 


-C .223445 


-0.225936 


-0.223324 


225936 


-C .223324 


-0.099721 


-C. 121742 


l 72651 


-0.192715 


0.295939 


-0. 194C96 


172651 


-C. 192715 


C. 172651 


-C. 196187 


2 35 8 t 9 


-0.194056 


0.334083 


-C. 173889 


2958C9 


-< . 194096 


0.295339 


-C. 197593 


334083 


-0.173889 


0.409921 


-0.174649 


3 340 £3 


-C. 173899 


0.334093 


-0. 1770 22 


439921 


-C .174649 


3.428676 


-0.147138 


439921 


-C . 174649 


0.409921 


-C .177796 


429676 


-0.147138 


0.417975 


-C. 147048 


428676 


-C .147138 


0 . 446 7 7 6 


-0.120587 


417575 


-0.147048 


0.413244 


-0.153315 


417975 


-C .147C48 


0.417981 


-0.093750 


413244 


-0.153315 


0.254478 


-0.151918 


4 13244 


-0 .153315 


0.41325C 


-O.C 93750 


446776 


-C .12 r 58 7 


0.417978 


-0. 118240 


446776 


-C. 120587 


0.446776 


-C. 122760 


254478 


-C. 151518 


0.254484 


-0.090938 


242512 


-0. 0 89774 


0.424017 


-C. 090719 


242512 


-0 .0 89774 


0.242522 


C. 904118 


424017 


-0.090719 


0.424017 


0.004161 


424017 


-0.C9C719 


0.429323 


-C. 086391 


424017 


C.CC4161 


0.242522 


0.004118 


424017 


C .L 04 161 


0.429923 


0.003963 


429C23 


C.0C3963 


0.429023 


-9.086391 


3 4 30 89 


-C. 242932 


0. 164231 


-0.447752 


343089 


-C .242992 


0.343396 


-0. 176758 


164201 


-0.447752 


-0.327335 


-C .434927 


16420 1 


-0.447752 


0 . 161 320 


-0. 226730 


327835 


-0 .434927 


-0.334216 


-0.226419 


446776 


-0. 122760 


0.409921 


-0.177796 


439921 


- 0 . 177796 


0.334033 


-0. 177022 


334CE3 


-0. 177022 


0.295839 


-0.197593 


2958C9 


-C . 197593 


0. 1 72651 


-0.196187 


172651 


-0 .196187 


0.168131 


-0. 226737 


168 1C 1 


-C. 226737 


-0.365197 


-0.226399 


345879 


-<. .20 9016 


-0.458421 


-0. 194646 



169 




GRRR IFR f 21 



FIGURE 36 



170 



PARAMETERS FOR THIS VIEW 



OBJECT POSITION (1) 84.0 
OBJECT POS IT ION ( 2 ) 0.0 
OBJECT POSITION (3) rt .C 
OBJECT ANGLE ALPHA O.C 
OBJECT ANGLE BETA O.C 
OBJECT ANGLE GAMMA 0.0 
OBSERVERS POSITION (1) 1598. C 
OBSERVERS POSITION (2) 96. C 
OBSERVERS POSITION (3) 96.0 
OBSERVERS ANGLE PSI 10. C 
OBSERVERS ANGLE THETA O.C 
OBSERVERS ANGLE PHI 0.0 
FOCAL LENGTH 1.5 
SCALE 0.5 
HORIZONTAL OFFSET 0.0 
VERTICAL OFFSET O.C 



TABLE VI 

PARAMETERS AND STRUCTURED DATA FOR CARRIER (3) 
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VISIBLE LINES 



XSTART 
.365741 
.334678 
.244129 
.112519 
.361485 
.641578 
.641578 
.484154 
.540522 
.540522 
.540522 
.310611 
.310611 
.310611 
.197263 
0.197263 
-0.962325 
-0.063325 
-0.318572 
3.288957 
3.472838 
0.472838 
0.500857 
0.530857 
0.699164 
0.639164 
0.592394 
0.592394 
0.580871 
0.580871 
0.365735 
0.350102 
0.350102 
0.596365 
0.596365 
0 .447278 
0.447278 
3.30255C 
0.302550 
-0.472457 
9.6)9164 
0.5)0857 
0.472838 
3.310611 
-0.492874 



YSTART 
-0 .0 77665 
-C .C 77 52 6 
-C. 077121 
-0. 099 80 8 
-C . C 9 9 7 9 0 
-C .157827 
-C .197827 
-C .221024 
-C .249313 
-0 .249313 
-C .249313 
-C .249938 
-0.249908 
-0.2499)8 
-C .251437 
-C. 251437 
-C. 2 51 202 
-0.251202 
-0.25C 984 
-C.2CC143 
-C .202270 
-C.2C227C 
-C . 172536 
-C .172536 
-C .173603 
-0.1736)3 
-C. 137291 
-C .137291 
-C. 145 051 
-C.145C51 
-C. 143278 
-C .059 753 
-C .059753 
-C .060600 
0. 067334 
-C .259552 
-C .259552 
-0 .607 113 
-C.6C7113 
-C .579940 
-0. 178C54 
-C .176960 
-C. 207457 
-0.256316 
-0.225379 



XEND 

0.334678 
0.244129 
0.112519 
-0.061485 
-0.641578 
-0.484194 
-0.641578 
-0.540522 
0.310611 
-0.318972 
-0.540522 
0.197263 
0.288957 
0.310611 
C. 112659 
-0.063325 
0.009677 
-0.318972 
-0.107170 
0.472838 
0.500857 
0.472838 
0.609164 
0.500857 
0.592394 
0.609164 
0.580872 
0. 580874 
0.365735 
0.580879 
0.365743 
0.596365 
0.350112 
0.596365 
0.350112 
0.302550 
0.447283 
-0.472497 
0.299695 
-0.484153 
0. 500857 
0.472838 
0.291202 
-0. 540522 
-0.641578 



YEND 

-0.077526 
-0.077121 
-0.099808 
-C. 0 997 90 
-0.197827 
-0.221024 
-0.202900 
-0.249313 
-C. 249908 
-0.250984 
-0.255706 
-0.251487 
-C. 200 143 
-0.256316 
-0.099774 
-C. 251202 
-0.099646 
-0.250984 
-0.107511 
-C. 202270 
-0. 172536 
-0 .207457 
-0. 173603 
-0.176960 
-0.137291 
-0. 178C54 
-0.137201 
-0. 112350 
-0.143278 
-0.066406 
-0.059082 
-0.06060C 
0.066392 
0.067334 
0.066392 
-C. 607113 
-0.214844 
-0.579940 
-0.256287 
-0.255748 
-0.17696C 
-0.207457 
-0.205302 
-0.255706 
-0.202900 
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CRRRIER (3 




FIGURE 37 
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PARAMETERS FOR THIS VIEW 



OBJECT POSITION (1) 42.0 
OBJECT POS IT ION (21 C.P 
OBJECT POSITION (3) O.n 
OBJECT ANGLE ALPHA 0.0 
OBJECT ANGLE BETA 0.0 
OBJECT ANGLE GAMMA 0.0 
OBSERVERS POSITION (1) 1300.0 
OBSERVERS POSITION (2) 43. 5 
OBSERVERS POSITION (3) 80.0 
OBSERVERS ANGLE PSI 10. f 
OBSERVERS ANGLE THETA 0.0 
OBSERVERS ANGLE PHI 0.0 
FOCAL LENGTH 1.5 
SCALE 0.5 
HORIZONTAL OFFSET 0.0 
VERTICAL OFFSET 0.0 



TABLE VII 

PARAMETERS AND STRUCTURED DATA FOR CARRIER (4) 
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COLUMN 8 9 10 11 12 

IDFNT FACES LINE END POINTS INTERSECTING SURFACES 
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CARRIER (41 



FIGURE 38 



PARAMETERS FOR THIS VIEW 



OBJECT PCS IT I ON (1) 0.0 
OBJECT POS IT I ON (2) ".C 
OBJECT POSITION (3) 0.0 
OBJECT ANGLE ALPHA 0.0 
OBJECT ANGLE BETA 0.0 
OBJECT ANGLE GAMMA 0.0 
OBSERVERS POSITION (1) 950. C 
CBSEPVERS POSITION (2) 0.0 
OBSERVERS POSITION (3) 66.0 
OBSERVERS ANGLE PSI 10. C 
OBSERVERS ANGLE THETA 0.0 
OBSERVERS ANGLE PHI C.C 
FOCAL LENGTH 1.5 
SCALE n • 5 
HCRIZCNTAL OFFSET O.C 
VERTICAL OFFSET 0.0 



TABLE VIII 

PARAMETERS AND STRUCTURED DATA FOR CARRIER (5) 
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COMPUTER PROGRAM FOR THE IBM 360-67 



C0MM0N/SDF B/ ALPHA, BETA , GAMMA , P S I , THETA, PHI ,0BJMV( 3) , 

I VI EWMV (3) » FOCUS* YOFF, ZOFF , SCLE, HMATRX ( 4, 4 ) ,0BSP0S( 12) 
INTEGER*2 IARRAY 

01 MENS ION ARRAY I 80 ,13 ), IARRAY ( 2,80, 13) .FNORML (80, 3) 
DIMENSION LSTF AC ( 2 50 ) , LSTBFC ( 1 ) 

DIMENSION XSTART ( 100) , YSTART ( IOC ) , XEND ( 1 GC ) , YENO( 1 00 » 
EQUIVALENCE (ARRAY! 1, 1 ) • I ARRAY ( 1,1,1)) 

EQUIVALENCE (FNORML (1,3) ,LSTBFC(l) ) 

EXTERNAL READCR 
I P PT=6 
N = 8C 



DO 11 1=1, N 
DO 11 J*1 » 13 
ARRAY ( I,J)=9.0 
11 CONTINUE 

CALL DESCRB! ARRAY, I ARRAY, FNORML, LSTFAC.N. READCR, 
1XSTART, YSTART, XEND, YEND.NLINES, LSTBFC, NU$E0) 
NFACES=32 
DO l J*1 ,NFACES 
CALL FACES 

1 CONTINUE 
CALL LINES 
CALL CCVCVX 

2 CONTINUE 
IRPT=I RPT- l 

IF( IRP T.GT ,0 )G0 TO 3 
GO TO 9 

3 CONTINUE 
CALL ERASE 

RE AD (5, 5 ) ALPHA, BET A, GAMMA, (OB JMV( I ), 1=1, 3) 

READ! 5,5) P SI .THETA, PHI , ( VIEWMV( J) , J=1 ,3) 

READI5, 1C ) FOCUS, SCLE, YOFF, ZOFF 
CALL C0NV30(N, ARRAY, NUSED) 

CALL HDNSRF 
CALL ALTER 
CALL CMPUT 
CALL DATSTR 

CALL DRAWVP( NL INES , XSTART, YSTART, XEND, YEND ) 

CALL LABEL 

CALL DRAWIT(NL INES, XSTART, YSTART, XEND, YENO, I RPT) 
GO TO 2 

5 FORMAT ( 6F 10, 3 ) 

10 FORMAT (4F10.6) 

9 CONTINUE 
STOP 
END 



SUBROUTINE C0NV3D( N, PNTLST , NUSED) 

COMMON/SDF B/AL PHA, BETA .GAMMA , PS I , THETA .PHI ,OBJMV ( 3 ) . 
1VI EWMV (3), FOCUS, YOFF, ZOFF. SCLE, HMATRX! 4,4) ,OB$POS< 12) 
DIMENSION PNTLSt (N,13)*DI SPLY (3),HCRD3D(4),TEMP(4) 

THIS PROGRAM USES THE FOURTH COORDINATE OF THE 
HOMOGENEOUS SET EQUAL TO 1.0 AND THEREFORE REDUCES 
THE NUMBER OF MULTIPLICATIONS NECESSARY 
CALL VMVMAT 
TEMP(4 )=i. 0 
DO 5 1=1, NUSED 
DO 1 I N= 1 » 4 

1 HCRD3D ( IN) =0.0 

CONVERT THREE DIMENSIONAL COORDINATES TO FOUR 
1 D I MENS IONA L HOMOGENOUS COORDINATES 
DO 2 I M=1 , 3 

2 TEMPI IM)=PNTLST( I, IM) 

DC 3 K=1 , 4 

DC 3 J=1 .4 

HCRD3D ( K I =HCRD3D( K ) +TEMP ( J ) *HMATRX ( J , K ) 

3 CONTINUE 

DO 4 I D=2 , 3 
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onoooooonooooooooooooooooooooooooonnnoooo 



D I SPLY ( ID ) =HCRD3DI ID ) /HCRD3D < 4 ) 
A CONTI NUF 

C SAVE DEPTH INFORMATION 

DISPLY (1 ) = HCRD3D ( II 
DO 5 I S = 1 » 3 

5 PNTl ST ( I , I S+3)=DI SPLYl IS) 

RETURN 

END 



SUBROUTINE VMVMAT 

COMMON/SDF B/ AL PHA , BET A , GAMMA , PS I , THET A , PHI ,OBJMV< 31 , 

1 V I EWMV ( 3 ) , FOCUS, YOFF.ZOFF, SCLE, HMATRX (4, 4) ,OBSPOS< 12) 
DIMENSION ROTMAT ( 4,4 ) ,ORIMAT( A, A) , TEMPI 3) 

DIMENSION TEMPYI3 ) ,TEMPZ< 3) ,TEMPF( 3) 

THIS SUBROUTINE CALCULATES THE A X A MATRIX FOR 
PERSPCT IVE TRANSFORMATIONS 



X 

V I EMPLANE 
AXES 



U 

OBJECT . 
AXES .V 



.Y 



DEFINI TIONS 

ANGLES (ENTERED IN DEGREES) 

ALPHA ROTATION OF U INTO V 
BETA ROTATION OF W INTO U 
GAMMA ROTATION OF V INTO W 
PSI ROTATION OF X INTO Y 
THETA ROTATION OF Z INTO X 
PHI ROTATION OF Y INTO Z 
OBJMV MOVEMENT OF UVW ORIGIN 
MEASURED IN XYZ COORDS 
V I EWMV MOVEMENT OF XYZ AXES 
FOCUS VIEWING DISTANCE FROM 

PICTURE PLANE (YZ PLANE) 

YOFF HORIZONTAL OFFSET IN PICTURE PLANE 

ZOFF VERTICAL OFFSET IN PICTURE PLANE 

SCLE NORMALIZED DISTANCE FROM CENTER TO EDGE OF PICT 
NORMAL VALUE FOR FULL PICTURE IS 1/2 
NORMAL RATIO OF SCLE TO FOCUS IS BETWEEN 1 /A AND 1/3 
IF FOCAL LENGTH IS INCREASED WITH SCLE HELD CONSTANT 
THE RESULT IS AS IF A TELEPHOTO LENS WERE USED 
DECREASING THE FOCAL LENGTH CORRESPONDS TO USING A 
WIDE ANGLE LENS 

VIEWING ANGLES MEASURED VERTICALLY AND HORIZONTALLY 
FROM CENTER ARE APPROXIMATELY 14 DFGREES FOR A RATIO 
OF 1/4 AND 18.5 DEGREES FOR A RATIO OF 1/3 

CALL ROT AT N I ROTMAT , ALPHA, BET A, GAMMA ) 

DO 1 1=1,3 

1 ROTMAT (4, I ) = OBJMV( I )-VIEWMV( I ) 

A=-PS I 
B=-THE TA 
C=-PHI 

CALL FXRTATIORIMAT , A , B , C ) 

CALL PROD! ROTMAT, OR I MAT, 4,4,4, HMATRX, 4,4,4 ) 

FCTP 1 = -SCL E/FOCUS 

HMATRX (1 ,4 )=HMATRX( 1, 1)*FCTR1 

HMATRX(2»4)=HMATRX(2» l )*FCTR1 

HMAT RX(3»4) = HMATRX(3» 1)*FCTR1 

HMATRX (4,4)=(HMATRX(4, l ) -FOCUS ) *FCTR1 

IFIYOFF.EO.O. ) GO TO 3 

FCTP2=YOFF/SCLE 

DO 2 1=1,4 
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2 HMATRX( I ,2 )=HMATRX( I , 2 ) +FCTR2*HMATRX ( I ,4) 

3 CONTINUE 

IE (ZOFF.EO.O. ) GO TO 5 
FCTR3=ZOFF/SCLE 
DO 4 1=1,4 

4 HHATRXI I ,3 )=HMATRX ( I ,3 ) *FCTR3*HMATRX ( 1,4) 

5 CONTINUE 

CALL P OT AT N (OR I MAT, PS I, THETA, PH I ) 

00 6 1=1,3 

TEMP ( I ) = VI EWMV ( I ) -OBJ MV( I ) 

TEMPF ( I ) =0 RI MAT ( 1 , I ) * FOCUS +T EMP ( I ) 

TEMPY ( I)=0RIMAT(2,l)+TEMP( I) 

6 TEMPZ(I)=0PIMAT(3,I) + TEMP( I) 

A=-ALPHA 

B=-BFTA 
C= -GAMMA 

CALL POTATN(ROTMAT , A, B ,C ) 

DO 7 1=1,12 

7 OBSPOS ( I 1 = 0. 

DO 8 J=1 , 3 
JJ=J+3 

J J J= J+6 
J4J=J+9 
DO 8 1=1,3 

OBSPOS (JJ)=OBSPOS( JJ)+TEMPY( I)*ROTMAT( I,J) 
OBSPOS(JJJ)=OBSPOS(JJJ)+TEMPZ( I ) *ROTMAT ( I, Jl 
OBSPOS (J4J)=0BSP0S( J4JJ+TEMPFI I )*ROTMAT( I, J) 

8 OBSPOS ( J ) = OBSPOS ( J )+TEMP( I ) *ROTMAT ( I , J) 
RETURN 

END 



SUBROUTINE FXR TAT ( RMATRX , A, B , C ) 

DIMENSION RMATRX (4,4) 

C THIS SUBROUTINE CALCULATES THE 4 X 4 ROTATION 

C MATRIX FOR FIXED ANGLE ROTATION. 

C CALCULATE DIRECTIONAL COSINES 

C AND PLACE IN ROTATION MATRIX 

TPI=3. 1416/180. 

ALPHA= TP I* A 
BETA=TPI*B 
GAMMA=TPI*C 
SALPHA=SIN(ALPHA) 

CALPHA=COS (ALPHA) 

SBETA=SIN( BETA ) 

CBETA=COS( BETA) 

SGAMMA=SIN (GAMMA) 

C GAMMA=C OS (GAMMA ) 

TEMP 1=CGAMMA*S ALPHA 
TEMP2=SGAMMA*C ALPHA 
TFMP3* SGAMMA^S ALPHA 
TEMP4=CGAMMA*C ALPHA 
RMATRX (1 ,1 ) = CBETA*C ALPHA 
RMATRX(1,2)=TEMP1+TEMP2*SBETA 
RMATRX (1,3 )=T EMP 3- TEMP4+SBETA 
RMATRX (2,1 ) = -C BET A*S AL PHA 
RMATRX ( 2,2 )=TEMP4- TEMP 3*SBETA 
RMATRX (2,3 )=TEMP2 ♦TEMP 1*SBET A 
RMATRX(3»1 )=SBETA 
RMATRX (3,2 )=-CBETA*SGAMMA 
RMATRX (3,3 )=CGAMMA*CBET A 
DO 1 1=1,3 
RMATRX ( 1,4 )=0. 

1 RMATRX (4,1 )=0 • 

RMATRX (4,4 )=1. 

RETURN 

END 
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noon 



SUBROUTINE ROT ATN ( RMA T R X , A , B , C ) 

DIMENSION RM AT RX (4,4) 

THIS SUBROUTINE CALCULATES THE A X A ROTATION 

MATRIX FOR EULER ANGLE ROTATION 

CALCULATE DIRECTIONAL COSINES 

AND PLACE IN ROTATION MATRIX 
TP I = 3 . 1416/180. 

ALPHA=TPI* A 
BET A = T P I *B 
GAMMA=TpI*C 
SALPHA=SIN( ALPHA) 

CALPHA=COS ( ALPHA ) 

SeETA=SIN( BETA ) 

CB ET A=COS ( BETA ) 

SGAMMA=S IN (GAMMA) 

CGAMMA=C OS (GAMMA) 

TFMP1=CGAMMA*S ALPHA 

TEMP2=SG AM MA*C ALPHA 

TEMP 3= SG AM MA*S ALPHA 

TEMP 4= CGAMMA*C ALPHA 

RMATPX (1,1 )=CBETA*CALPHA 

PMATPX ( 1,2 ) =C B ETA* SALPHA 

RMATRX (1 ,? ) =-S BET A 

RMATRX (2,1 )=TEMP2*SBFTA-TEMP1 

RMATRX (2,2 )=TEMP3*SBETA+TEMP4 

RMATRX (2 ,3 ) = SG AMM A*CB F T A 

RMATRX (3,1 )=SBETA*TEMP4+TEMP3 

RMATRX ( 3,2 )=SBETA*TEMP 1-TEMP2 

RMATPX (3,3 )=CBETA*CGAMMA 

DO 1 1=1,3 

RMATRX ( I ,4 )=o. 

1 RMATRX (4,1 ) =0 . 

RMATRX ( 4 ,4 ) = 1 . 

RETURN 

END 



1 
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SUBROUTINE PROD ( A , B , N, M , L , C , ND , MD , LD ) 
DIMENSION A(ND,MO) ,B(MD»LD),C(ND»LD) 

DO 1 I =1 »ND 
DO 1 J = 1 » LD 
C ( I « J ) =0 . 

DO 151 1=1, N 
DC 151 J= 1 ,L 
DO 151 K=1 , M 

C( I,J) = C(I,J) + A( I ,K)*B(K, J) 

RETURN 

END 



C 

C 



SUBROUTINE DESCRB ( ARRAY, I ARRAY, FNORML,LSTE AC, N,SUBR1, 
1 X START, Y ST ART , X END, Y END, / JDSPL Y / , L ST BFC , /NPNTR/) 
COMMON/SDFB/ ALPHA , BET A , GAMMA , PS I , THETA, PH I , OBJ MV (3 ) , 
1VI EWMV (3) , FOCUS, YOFF, ZOFF , SCLE ♦ HMATR X ( 4,4) ,OBSPOS( 12) 
COMMON /DSCRB/LPNTR,JPNTR,IFACE,TEMPIN(9), I CROSS, 

1 I NRSCT , ICOUNT ,NTF MP ,C URSEG , LLOW , LH IGH , XLOW ,XH IGH, YLOW 
2YHIGH, XNEAR, YNEAR, DPTHNR, A A ( 3 ) , BB ( 3 ) , CC ( 3 > , PP ( 3 ) , AAL 
3BBL, LPFSTR 

INTEGER*2 I ARR AY ( 2 , N . 1 3 ) 

D I MENS ION ARR AY (N, 13) ,LSTFAC( 1 > ,LSTBFC( 1 ) 

DIMENSION FNORML ( N , 3 ) 

D I MENS ION IWRKNR ( 20 ) , JGSE T( 23 ) , I NTL VR ( 20 ) 

DI MENS ION XST ART ( 1 ) , Y START ( 1) , XFND ( 1 ) , YEND ( l ) 

INTEGER PO INT, CUR SEG, TPNTR, TEMP 

TP ISNS (AC , BO»A1,BI,A2,B2»CONST)=AO*B1+A2*BO-AO*B2- 
1 A1*B0+C0NST 



N IS THE NUMBER OF DIFFERENT POINTS EXPECTED 



» 

t 
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SUBRI IS THE SUBROUTINE THAT WILL ENTER DATA 
CALLING NAME OF SUBR1 MUST BE DECLARED EXTERNAL 
IN THE MAIN CALLING PROGRAM IN ORDER THAT ITS 
NAME WILL BE RECOGNIZED AS A SUBROUTINE 
DATA IS ENTERED IN THE FIRST THREE LOCATIONS 
OF TEMPIN 

SUBRI SHOULD READ IN NUMBER OF POINTS TO THE FACE 
THIS SHOULD BE FOLLOWED BY THE THREE COORDINATES 
OF EACH POINT, ONE POINT AT A TIME, INTO ARRAY 
TEMPIN 

IF DESIRED, READCR MAY BE USED TO ENTER DATA 
FORMAT EXPECTED IS I I 10 FOR THE NUMBER OF POINTS 
OF THAT FACE TO FOLLOW 

SUBSEQUENT CARDS WILL USE THE FORMAT 3F20.6 FOR 
COORDINATES X,Y,Z 

THE FIRST POINT ENTERED MUST BE A CORNER POINT 
I.E.t THE LAST, FIRST, AND SECOND POINTS MUST 
NOT BE COL LI NEAR 

NPNTR=0 
LRESTR=C 
LPNTR=0 
I F PNTR=G 
L S PNTP =C 
Jt'SPLY=0 
J PNT R=C 

CALL QSCRB 1( N, ARR AY, I ARR AY , FNORML , LST F AC , L ST BFC , 

1 IWRKNR , INTLVR, JGSE T,X START, Y START, XENO , YEND , JD SPL Y ) 

DC 1 I =1 , N 
ARRAY! 1,7) =). 

ARRAY! I , 13 ) = n • 

1 CONTINUE 
RETURN 

ENTRY ERASE 
DO 7 1=1 , N 
7 ARRAY! 1,13 ) = 0. 

IF (LRESTR. NE.O >G0 TO 30 
DO 6 I =1 , L PNTR 
TEMP= I ARRAY! 2, 1,9) 

6 IARRAY (2, I ,9 )= IABS (TEMP) 

RETURN 

ENTRY FACES 
NP T= 1 

CALL SUBRI (NPT , TEMPIN) 

IFPNTR=IFPNTR+1 
I ARRAY (1 , IFPNTR, 8 )=NPT 
I ARP AY (2, IFPNTR, 8 )=LSPNTR+1 
DC 13 IN= 1 , NPT 
CALL SUBRI ( 0 , TEMPI N) 

21 DO 22 1=1, NPNTR 

IF (TEMPI N( 1) . EQ. ARRAY ( I , 1 ) . AND . T EMP I N ( 2 ) . E Q. ARR AY ( 1,2) 
1. AND. TEMPIN! 3 ) .EQ. ARRAY! I ,3) )G0 TO 14 

22 CONTINUF 
NPNTR=NPNTR+1 
NE W=NPNTR 

DO 11 1 = 1,3 

11 ARRAY! NPNTR, I )=TEMPIN( I ) 

12 LSPNTR=LSPNTR+1 

13 LSTFAC(LSPNTR)=NEW 
RETURN 

14 NE W= I 

GO TO 12 

ENTRY LINES 
30 CONTINUE 

DO 40 1 = 1 , IFPNTR 
I R = 1 

NBR=I ARRAY (1,1,8) 

NBR= lABS(NBR) 

T PNT R= I ARR AY ( 2 , I , 8 ) 
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lstrt=tpntp 

LPNT = LSTFAC< TPNTR ) 

31 T FNTR=TPNT P + 1 

NP NT = L STFAC ( TPNTR ) 

3 2 I P = I R + 1 

IF (NPNT.LT .LPNT )G0 Tf) 38 
I B = 1 

L L OW = L PNT 
LF IGH=NPNT 
39 CGNTINUF 

DO 16 J= 1 » LPNT R 

I T ( I ARRAY ( 1 , J, 9 ) . E Q . L LOW . AND . I ARR AY ( 2 , J , 9 ) . EQ .LHI GH ) GD 
1TG 37 

16 CONTINUE 

L PNTP= LPNT P+ 1 
I F { l RESTR.NE.OGO TO 33 

17 I ARR AY ( IB, LPNTR, 1 1 ) = I 

33 IAPPAYd , LPNTR, 9)=LL0W 

I ARP AY(2,LPNTR,9)=LHTGH 

34 L PNT = NPNT 

IF ( I P-NBR) 31 ,36,43 

36 NPNT=LSTFAC( LSTRT ) 

GC TO 32 

37 I APR AY ( IB, J, 11 ) =1 
GO TO 34 

38 LL CW=N PNT 
LHIGH=LPNT 
I B = 2 

GO TO 39 
4C CONTINUE 
L RESTR =G 
RETURN 

ENTRY Cf.VCVX 
DO 49 1 = 1, IFPNTR 
NBR= I ARR AY ( 1 ,1,8) 

NBR= I A BS (N BR ) 

TPNT R= I ARR AY ( 2 , 1 , 3 ) 

PO INT=LSTF ACITPNTR + NBR-l) 

DO 41 J=1 , 3 

41 TFMPIN!J)=ARRAY(POINT ,J) 

POINT=LSTF AC (TPNTR) 

DC 42 J= 1 » 3 

42 TEMPINIJ+3 )=ARRAY( POINT, J) 

POINT=LSTFAC( TPNTR+1) 

DO 43 J=1 , 3 

43 TEMPIN! J+6)=ARRAY{P0INT, J) 

A= SORT ( (TEMP IN ( 1 )- TEMP INI 4) ) **2 + ( TEMP I N( 2) -TEMPI N( 5) ) 
1**2+!TEMPIN(3)-TEMPIN(6) )**2) 

B=SCPT( (TEMPIN(7)-TEMPIN(4) )**2+!TEMPIN(8)-TEMPIN!5) ) 
1**2+(TEMPIN(9)-TEMPIN(6) )**2) 

AB 1 = 1 . / ( A* B) 

FNORML ( I » 1 )=AB I* ( ( TEMP INC 2 ) -TE MP I N ( 5 > ) * ( TE MP I N ( 9 ) - 
1TEMP IN (6 ) )-( TEMP IN( 3) -TEMP IN < 6 ) > * ( TEMP I N ( 8 ) - 
2TE MP IN ( 5 ) ) ) 

FNORML ( I ,2 ) = ABI*< ( TEMP I N< 3 ) -TE MP I N ( 6 ) ) * ! T E MP I N ( 7 ) - 
1T E MP IN ( 4 ) )-( TEMP I N ( 1 ) - TEMP I N ( 4 ) ) * ( TEMP I N ( 9 )- 
2 TE MP I N ( 6 ) ) ) 

FNORML < I ,3 ) = ABI*I ( TEMP IN ( 1 ) -TEMP IN ( 4) ) * ( TE MP I N( 8 ) - 
1TEMP IN (5 ) ) -! TEMP IN (2 ) -TEMP IN ( 5) ) * ( TEMP IN ! 7 )- 
2TE MP I N ( 4 ) ) ) 

49 CONTINUE 

DO 47 1=1, LPNTR 
I F AC E 1 = 1 ARR AY( 1.1,11) 

IF ACE1 = I ABS( I FACE 1 ) 

IF ACE2 = I ARRAY! 2, 1,11) 

LLOW= I ARRA Y( 1,1,9) 

LHIGH=IARP AY (2, 1,9) 

DO 44 J=1 , 3 
A A ( J ) = FNOP ML ( I FAC E 1 , J ) 

44 BB(J)= FNORML! IFACE2,J) 

CALL C ROSS ( A A , BB , CC ) 
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on 45 J= 1 , 3 

45 AA(J)=ARRAY!LHIGH, J ) -ARRAY ( LLOW, J ) 

SCALAR =C. 

DO 46 J= 1 , 3 

46 SCALAR=AA< J) *CC ( J ) ♦SCALAR 
IF (SCALAR. GE.O.IGO TO 47 
IARRAY (1 , I ,11 )=-IFACEl 
IARRAY(1,LL0W»7) = 1 
IARPAYI 1»LHIGH,7)=1 

47 CONTINUE 
RETURN 

ENTRY HDNSRF 
JPNTR=0 

DP 54 1=1, IFPNTR 
NBR= I ARP AY (1 , 1,8) 

NBR= I A BS ( NBR ) 

TPNTR= IARR AY ( 2 , I , 8 ) 

PCINT=LSTFAC(T PNT R+NBR- 1 ) 

DO 51 J = 1 , 2 

51 TEMPIN(J)=ARRAY(P0INT,J+4) 

POINT=LSTFAC(T PNTR ) 

DO 52 J=3* 4 

52 TENPIN (J )=ARRAY(POINT, J+2) 

PO I NT= LSTF AC ( T PNT R*1 ) 

DO 53 J= 5, 6 

53 TEMPIN (J) = ARR AY (POINT ,J ) 

DEPTH N=(TE HP INI1 )-TEMPIN(3) ) * ( T EMP IN ( 6 ) -TE MP I N < 4 ) ) - 
1(TEMPIN(5)-TEMPIN(3) ) * ( TEMP I N( 2 )-TEMP I N( 4) ) 

IF (DEPTHN. GE *0 • ) GO TO 55 
I ARRAY ( 1 , 1 ,8 ) =NBR 

54 CONTINUE 

DO 58 1=1 , LPNTR 
I F L A G 1 =C 

TEMP= I ARRAY! 1,1,9) 

TENP=IABS( TEMP) 

I FAC E 1 = 1 ARRAY! 1,1,11) 

IF (IFACE1.GT.0 )G0 TO 57 
I FAC El =- 1 F AC El 
IFLAG1=1 
CONTINUE 

IFACF2=IARRAY(2, 1,11) 

IF (IARRAY! I, I FACE 1 , 8 ) . LT. 0 II FL AG 1= I FL AG1 ♦ 1 
IF (I ARRAY! 1, I FAC E2 ,8 ) . LT .0 ) I FL AG 1= IFL AG 1 ♦ 1 
IF(IFLAG1.GE.2)G0 TO 56 
IARRAY! 1, I , 9 ) = TEMP 
CONTINUE 
RF TURN 

IARRAY! 1, I , 3 ) =-NBR 
GO TO 54 

IARRAY! 1, I ,9 ) =-TEMP 
GO TO 58 

ENTRY CMPUT 

EXAMINE SEGMENTS ORIGINATING AT SPECIFIED NODE 
JDSPLY=C 

DO 104 ILK=1. LPNTR 
LLOW= I ARRAY ( 1 , ILK, 9) 

IF (LLOW.LT.O)GO TO 104 
XLOW= ARRAY (LLOW, 5 ) 

YLOW=ARRAY (LL0W,6 ) 

IF(IARRAY(2, LLOW ,13).NE«0) GO TO 105 
CALL VRTNTP 
CONTINUE 

SEARCH FIRST NODE OF ALL SEGMENTS 
DO 114 I L= ILK, LPNTR 

IF(IARRAY(1, IL,9).NE. LLOW ) GO TO 114 
LH IGH= IARRAY! 2 , IL, 9) 

I F ( LH I GH «L T .0 ) GO TO 114 

ENTER NATURE AT INITIAL VERTEX 



57 



58 

55 

56 



105 



112 



NBR= IARRAY ( 1 ,LLOW, 13) 
TPNTR= I ARR AY ( 2 , LLOW , 1 3 ) 
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I VvRKNP ( 1 ) = NBR 

IF (NRP . FQ. 0 ) GO TO 3C1 

I DR A W=0 

107 I END=NBR+1 

DC 111 J = 2 » I ENO 

111 IHRKNP(JI=LSTBFC(TPNTR*J-2) 

113 CONTINUE 

C FIND DIRECTION NUMBERS 

XHIGH=ARRAY(LHIGH,5) 

YH IGH= ARRAY ( LH IGH , 6 ) 

AAL=XH IGH-XLOW 
BBL=YHIGH-YLOW 

C FIND LOSING INTERSECTIONS 

CURS EG= I L 
CALL LNTPSC 

IF ( INRSCT. EQ.O )G0 TO 103 

C SEARCH FOP INTERSECTION AT INITIAL VERTEX 

I C CUNT=I NR SC T 
I JK=LPNTP+ 1 
NT EMP=0 

DC 1C9 1=1, INRSCT 
I JK= I JK+1 

IF(IARRAY( 1, I JK,P) .LT.OIGO TO 109 

IF ( X LOW. NE .F NORM L ( I ,11 .OR . YLOW . NE . FNORML ( I , 2 ) ) GO TO 
1109 

INTERSECTION OCCURS AT INITIAL VERTEX 
NTEMP=NTEM P+ 1 

INTLVR (NTEMP)= I ARRAY I 1 , I JK, 9) 

I ARRAY (1,1 JK,9) = -IARPAY(1 , IJK,9) 

CONTINUF 

I F (NT EMP .E Q .0 ) GO TO 151 
XNEAR= XLOW + . 00 01 * AAL 
YNEAR=YLOW+.0001*BBL 

COMPUTE DEPTH OF PCINT NEAR VERTEX 
TEMP IN (1 )=.001*ARR AY (LHIGHyl ) -ARRAY (LL0W,1 )*,999 
TEMP IN (2 )= .001*ARRAY(LHIGH»2)-ARRAY(LLOW»2)*.999 
TF MP I N ( 3 )=.Q01*ARPAY(LHI GH» 3 ) -ARRAY ( LL OW , 3 I* . 999 
DPTHNR=DEPTH(TEMPIN< 1 ) , TEMP I N ( 2 ) , T EMP I N( 3 ) ) 

CALL TSTNNP 

IF(IDRAW.EQ.1.AND.IWRKNR(1).NE.0)G0 TO 302 
IF ( IDRAW.EO.O. AND. I WRKNR( 1 ) .EO.OGO TO 303 
GO TO 151 
JDSPLY=JDSPLY+1 
XSTART < JDSPL Y ) =XLOW 

Y START (JDS PLY )=YLOW 
I DRA W= 1 
GO TO 113 
JDSPLY=JDS PLY-1 
I DRA W=0 
GO TO 151 
JDSPLY=JDSPLY+1 
XSTART ( JDS PLY) =XLOW 

Y ST ART (JDS PLY)=YLOW 
I DRAW= 1 
CONTINUE 

IF ( ICOUNT. EQ.O ) GO TO 103 
NTEMP=0 
IJK=LPNTR+1 
DO 152 1=1, INRSCT 
I JK=I JK+1 

IJKTST=IARRAY( 1,1 JK,9) 

I F ( I JKTST. LT.O )G0 TO 152 

I F( XHIGH.EQ.FNORML( I , 1) . AND. YHI GH. EQ . FNORML ( 1,2) )G0 
1T0 153 

152 CONTINUE 
I F LAG=C 

IF ( ICOUNT. LE.NTEMPJGO TO 201 
GC TO 154 

153 NTEMP=NTEMP«-1 
INTLVR (NTEMP )= I JKTST 
I ARR AY ( 1 , I JK ,9 ) = -I JKTST 
GO TO 152 



C 

109 

C 

301 

302 

303 

151 
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154 CONTINUE 

I JK=LPNTR+1 
Rl NGTH = 1 . E 6 
DO 155 1 = 1,1 NRSCT 
I JK= I JK+ 1 

I JKTST = T ARRAY ( 1, IJK, 9) 

IF ( I JKTST. LT.O ) GO TO 155 
A L SEG=FNOR ML II ,l)-XLOW 
B L S EG= FNOP ML ! I.2J-YLOW 
TLNGTH=ABS ( ALSEG ) +ABS ( BLSEG ) 

IF(TLNGTH-RLNGTH) 156,157,155 
156 RLNGTH=TLNGTH 
I SEG J= I JKT ST 
NX T INT = I JK 
MULT PL = i 
N I = I 

GO TO 155 

15 7 IF (IFLAG.EQ.O) MULT PL= MULTPL+1 

155 CONTINUE 

I F ACE1 = I ARRAY ( 1, ISEGJ, 11) 

IFACE1=I ABS( IFACEl ) 

IF ACE2=I ARRAY! 2, I SEGJ, 11) 

IF IMULTPL.GT .1 )GO TO 162 
165 CONTINUE 

I T STNR= I WR KNR ( l) 

IF UARRAYI 1, IFACEl, 8) .LT.O )GO TO 160 
CALL DELETE! IWRKNR, IFACEl ) 

IF( ITSTNP.NE. IWRKNR ( 1) )G0 TO 159 
IWRKNRd )=IWRKNR(1 ) + 1 
IWRKNR(ITSTNR+2)=IFACE1 
CALL DELETE! IWRKNR,IFACE?) 

GO TO 161 

159 IF ( IARRAYI 1, IFACE2,8) .LT.OJGO TO 161 
IWRKNR! ITSTNR+1)= IFACE2 

IWRKNRd ) = IWRKNR!i ) + l 
GO TO 161 

160 CALL DELETE! IWRKNR, IFACE2) 

IFIITSTNR.NE. IWRKNRd) )G0 TO 161 
IWRKNRd )=IWRKNR< 1) + 1 

IWRKNR !ITSTNR+2)=IFACE2 

161 IARRAY!1,NXTINT,9)=-I SEGJ 

IF ( IDRAW.EQ. 1. AND. IWRKNR! 1 ).NE.O)GO TO 304 
IF dDRAW.EQ.O. AND. IWRKNRd). EQ.O)GO TO 305 
168 I C OUNT = I CO UN T- 1 

IF ( I COUNT. LE.NTEMPJGO TO 201 
MULTPL=MUL TPL-1 
I F ( MUL TPL • LE .0JIFLAG=0 
GO TO 154 

304 XEND ( JDSPL Y) =FNORML! NI ,1) 

YEND! JDSPLY)=FN0RML!NI,2) 

CALL WINDOW 

I DRA W=0 
GO TO 168 

305 JDSPLY=JDSPLY+i 

X START! JDSPLY)=FNORMLINI ,1) 

YSTART (JDS PLY ) =FNORML ( N I , 2 ) 

I DRA W= 1 

GO TO 168 

162 CONTINUE 

C MULTIPLE INTERSECTIONS 

IRPT=1 

I SCT ND= I ARRAY ( l, I SEGJ, 9) 

X I NSC T=FNORML INI ,1) 

Y INSCT = FNORML ( N 1 , 2 ) 

163 XSEGJ= ARRAY! ISCTN0,5) 

YSEGJ=ARRAY! ISCTND,6) 

IF (XSEGJ.EQ.XINSCT.AND.YSEGJ.EQ.YINSCT)GO TO 166 
IF (IRPT.EQ.2) GO TO 165 

164 I SCTND= I ARRAY! 2 , I SEG J , 9 ) 

I S CT ND= I AB S ( ISCTND ) 

I R PT=2 
GO TO 163 
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166 I F l AG= 1 
XLEFT=XINSCT-.CCI*AAL 
XP IGHT = X INSCT+.001*AAL 
YIEFT=YINSCT-.001*BBL 
YR IGHT=YINSCT+.C01*BBL 

167 IF(IRPT.EQ.l) I H I GHE= I ARR AY < 2 , ISFGJ, 9) 

IF ( [RPT.EG.2 ) IHIGHE=I ARRAY ( 1 , ISEGJ.9) 

I H IGHE = I AB S( IHIGHE ) 

XTEST=X INS CT+. 001* (ARRAY! I H I GHE , 5 ) -X I N SC T ) 

Y TE ST = Y l NSCT + . 001* ( ARR AY ( I HI GHE ,6 ) -Y I NSCT ) 
TEMP1=XLFFT*YRIGHT-XRIGHT*YLEFT 

AL = TR I SNS( XTEST,YTEST,XLEFT,YLEFT, XR IGHT, YR IGHT, TEMPI ) 
IF (ABS( AL) .LT. 1.0E-8)GO TO 170 
IFCAL.LT. G.IGO TO 161 
Gr TO 165 

170 CONTINUE 
ITSTNP= IWRKNR! 1 ) 

CALL DELETE! IWRKNR, IFACE1 ) 

IF! ITSTNR.NE. IWRKNR! 1) )G0 TO 171 
IWRKNR ( 1 )= ITSTNR + 2 
IWRKNR ( ITSTNR*2)=IFACE1 
IWRKNR ( ITSTNR+3)=IFACE2 
GO TO 161 

171 CONTINUE 

CALL DELETE! IWRKNR, IFACE2) 

GO TO 161 

306 XEND! JDSPL Y) =XHIGH 
YEND! JDSPLY)=YHIGH 
CALL WINDOW 
GO TO 1C 6 

201 CONTINUE 
IF(NTEMP.EQ.O) GO TO 103 
XN EAR= XH IGH 
YMEAR=YHIGH 

DO 2C3 J=1 ,3 

203 TEMPIN!J)=ARRAY(LHIGH, J) 

DPTHNR=ARR AY(LHIGH,4) 

CALL TSTNNP 

103 CONTINUE 

I F ( IDRAW.EQ. 1 ) GO TO 3C6 
106 IF ( I ARRAY! 2.LHIGH, 13) .NE.OIGO TO 204 
I APR AY (1,LHIGH,13) = IWRKNR! 1) 

I ARRAY (2,LHIGH.13)=JPNTR+1 

IF ( IWRKNR! 1) .EQ.OJGO TO 204 

IEND= IWRKNR! 1 )+l 

DO 202 J=2 , 1 END 

JPNTR= JPNTR+1 

LSTBFC ( JPNTR )= IWRKNR! J ) 

202 CONTINUE 

204 IARRAYI2, IL,9)=-LHIGH 
114 CONTINUE 

104 CONTINUE 
RETURN 

ENTRY DATS TR 
I END= ( N- 1 ) /49 
DO 501 NPT = 1 . I END 
ISTRT=(NPT-1) *40+1 
I F IN 1= I STR T+39 
I F IN=M INO ( IF INI , N ) 

WRITE (6, 550 ( I . (ARRAY! I , J ) . J= 1 , 6 ) , I ARRAY ( 1 , 1 ,7 ) , 

1! I ARRAY (K, I, 13), K s 1,2) ♦ 1= I STRT , IF I N ) 

501 CONTINUE 

I E ND = ( N- 1 ) / 6 4* 1 
DC 503 NPT = 1,1 END 
ISTRT=(NPT-1) *64+1 
I F IN 1= I STR T+ 63 
IF I N=M INC ( IFIN1,N) 

WRITE! 6, 55 5) ! I , ( C I ARRAY! J, I,K) , J = 1 ,2) ,K=8, 12 ) , 1=1 STRT, 
1 IF IN ) 

503 CONTINUE 

5 50 FORMAT (1 HI ,8!/) , 1 5X ,' COLUMN' , 5X , • 1 ' , 10X , • 2 ' ♦ 10X, • 3 • , 
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llCX,'A',lCX,'5',nx,'6',8X,'7',6X,'13',/15X,' IDENT' , 

2 3X ,' THRFF-DI MENS IONAL COORDINATES ', 5X , 'DEPTH', 5X, 

3' PICTURE PLANE COORD • , 1 X , • CC V/C VX • , 1 X , • N AT UR E • , AO ( / 1 5X 
A,I3,2X,6F11.A,3X,I2,AX,I2,I3)) 

555 FORMAT ( 1H1 » / // 1 5 X , • COLUMN' , AX , ' 8 • , 10 X , • 9 • , 9X , • 10 • , 

19X, • 11 *.9X ,' 12' ,/15X, • IDENT* ,2X. 'FACES' ,6X ,'LINF END' , 
?• POINTS' , 5X, ' INTERSECTING SUR F ACE S ' , 6A( / 1 5X , I 3, 2 X , 2 1 A 
3»3X,2IA,3X,2IA,3X,2IA#3X,2IA) ) 

WRITE! 6,560) (LSTFAC( I ) , 1=1 ,LSPNTR) 

WRITE (6, 570 ) (LSTBFCI I) , I=1,JPNTR) 

IEND=JDSPLY/6A+1 
DO 5C2 J = 1 , 1 END 
I STRT= ( J-l )*6A + 1 
IF INl=ISTRT+63 
I F IN=M INC ( IF IN 1 , JDSPL Y ) 

WRITF(6,580) (X START! I ) , YST ART 1 I ) ,XEND< I ) , Y END ( I ) , 
1I=ISTRT, IF IN) 

502 CONTINUE 

560 FORMAT !/////// /A 1 X ,' L S TF AC' ,/5</15X,5I5,5X,5I5)) 

570 FORMAT (//A IX, 'LSTPFC',/5</15X,5I5,5X,5I5)) 

580 FORMATI1HI ,/// ,37X, 'VISIBLE LINES', //21X, 'XSTART',6X, 
2' YST ART' , 12X, • XEND* ,8X, 'YEND' ,6A(/15X,2F12.6,5X, 
32F12.6 ) ) 

P F TURN 

ENTRY ALTER 
NPNTRA=NPNTR 
DO A71 II=1,LPNTR 
M I RP OR = 1 

LLOW=I ARRAY ( 1 , 11,9) 

IF (LLOW.LT.O)GO TO A71 

IFIARR AY (L LOW, A) .GT.C. )M I R ROR = M IRROR+ 1 
LHIGH=IARRAY(2 »II ,9) 

IF (ARRAY(LHIGH,A) .GT.O. ) MIRROR =MI RROR+2 
GO TO 1A71 ,A81 ,A82,A72 ), MIRROR 
A72 IARRAY(1,I f,9)=-LL0W 
GO TO A71 
A 8 1 LPCI NT =LLOW 
HPCI NT =LHI GH 
GO TO A83 
A82 LPCI NT = LHI GH 
HPOI NT =LLOW 
A83 CCNTINUE 

DO A85 1 = 1 ,3 

AA ( I )= ARRAY! L POINT, I ) 

A85 BB ( I ) = ARRAY! HPOI NT , I ) 

CALL PIERC(OBSPOS!l) ,OBSPOS(A) ,OBSPOS!7) , A A, BB,PP ) 

NPNTRA=NPNTRA+1 

DO A 86 1=1,3 

ARRAY! NPNT RA , I )=PP(I ) 

A86 ARRAY! NPNT RA, 1*3 ) =HMA TRX ( A, I ) 

FCTR = HMAT RX ( A , A ) 

DO A87 1=1,3 
I J= I *3 

FCTR =FCTR+ARRAY (NPNTRA, I ) *HMATRX ( I, A) 

DO A87 J= 1 , 3 

A87 ARRAY (NPNTRA, I J )= ARRAY ( NPNTRA , I J ) + ARRAY !NPNTRA,J)* 

1 HMATRX ! J , I ) 

DO A88 1=5,6 

A88 ARRAY ( NPNTRA, I ) = ARRAY ( NPNTRA , I J/FCTR 
MIRROR=MIRROR-l 
I ARRAY (MIRROR, 1 1,9 )=NPNTRA 
A71 CONTINUE 

IF (NPNTRA. NE.NPNTR) LRESTR=1 

RETURN 

END 
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SUBROUTINE QSCRB1 ( N , AR R AY , I ARR AY.F NURMI , L STF AC ,L S TBFC , 
I I VvRKNR , INTLVR, JGS E T , XS TART , Y ST ART , X END , Y END, / JDSP L Y/ ) 
COMMON/SDFB/ ALPHA, BETA.GAMMA , PSI , THETA, PHI ,OBJMV<3) , 

I VI EWMV (3) , FOCUS,YOFF,ZOFF,SCLE,HMATRX(4,M ,OBSPOS( 12) 
COMMON /DSCRB/LPNTR»JPNTR,IFACE,TEMPIN(9) , ICROSS, 

I INRSCT, I COUNT , NT E MP , CURSEG , LLO W , LH IGH , XLOW , XH I GH , Y LOW , 
2YH IGH, XNEAR, YNEAR, DPTHNR, AA ( 3 ) , BB ( 3 ) , CC ( 3 ) , P P ( 3 ) , AAL , 
3BBL, LRESTR 

INTEGER TPNTR, CURSEG, TEMP 

DIMENSION ARR AY IN, 13) , FNORML ( N , 3 ) , LSTF AC ( 1 ),LSTBFC( 1 ) 
INTEGER*2 I ARR AY ( 2 , N , I 3 ) 

DIMENSION IWRKNR ( 1 ) , INTLVR < 1 » , JGSET ( 1 ) 

D I MENS ION XSTART ( 1 ) , Y START ( 1 ) , XENLM 1 ) , YENDl 1 ) 

DIME NS ION AAAI 3) ,BBB( 3) .AAAEI 3) ,BBBE( 3) .TSTPNTU) 
TRISNSIAC, B0,A1,B1,A2,B2, CONST )= AO *B 1+A2 *B0- A0*B 2- 
1 A l*BO+CONS T 
AL PH A=0 . 

BETA=0 . 

GAMMA-O. D 
PS 1 = 0. 

THETA=0. 

PH 1 = 0. 

YOFF=C . 

ZOFF =0 . 

FCCUS= 1.5 
SC LE =0 .5 
OBJMVI 1) =-A0. 

OB JMV ( 2 ) =C . 

OB JMV ( 3 ) =0 . 

VIEkMVI 1 1=0. 

V I EWMV ( 2 ) =0 . 

V I EWMV (3 )-0. 

RETURN 

C 

ENTRY VRTNTR 

MRPNTR=LPNTR+1 

ISTPT=MRPNTR+1 

86 NBR=0 

DO 92 IJ=1,LPNTR 
I F AC 1 = I ARR AY ( 1 , IJ, 11) 

IFAC2=IARRAY(2.I J, 11) 

IFAC 1= I ABS (IFAC1) 

IF! I ARRAY! 1 , I F AC1 , 8 ) . LT .0 . ANO. I ARR AY I 1, IFAC2, 8) .LT.C. 
10R.IFAC1.EQ.IFAC2IG0 TO 92 
LLOWE= I ARR AY ( 1 , IJ,9) 

LLOWE=IABS (LLOWE) 

IF (ARRAY(LLOWE,A) .GT.l. )G0 TO 92 
98 LHIGHE=IARRAY(2, IJ.9) 

LHIGHF=IABS(LHIGHE) 

X 1=ARRAY I LLOWE, 5 ) 

X2=ARRAY ( L H I GHE , 5 ) 

XMAX=A MA XI (XI, X2) 

XMIN=AMIN1 (XI, X2) 

IF (XMAX-XL0W)92»97,87 

87 IFIXMIN.GE .XL0W)G0 TO 92 

88 Y1=ARRAY (LLOWE, 6) 

Y2=ARRAY (LHIGHE, 6 ) 

YMAX=AMAX1 ( Y 1 , Y2) 

IF (YMAX.LT .YLOW )G0 TO 92 
TEMP1=X1*Y2-X2*Y1 
YMAX=YMAX+ 1 . 

AL=TRISNS(XLOW, YLOW, XI, Y1,X2,Y2, TEMPI) 

AH=TRI SNS( XLOW 1 YMAX,Xl 1 Yl,X2tY2, TEMPI ) 

IF (AL.LT.O ..AND.AH.LT.O. .OR. AL.GT.O. . AND. AH.GT.O. ) GO 
1T0 92 

C MARK POLYGONS FOR INTERCEPT 

IEFAC1=IARRAY( 1, IJ.ll) 

IEFAC1 = I ABS( IEFAC1 ) 
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IEFAC2=IARRAY(2»IJ»11) 

IF ( I ARRAY! I, I EFAC1,8 ) .LT.C )G0 TO 90 
DO 89 I K= I STRT , MRPNTR 
IF ( ISTRT.GT.MRPNTRIGO TO 89 
TEMP=I ARRAY! I, IK, II) 

IF(TEMP.EQ.IEFAC1 )GO TO 95 

89 CONTINUE 
MRPNTR=MRPNTR+1 

I ARRAY! I,MRPNTR,ll)=IEFACI 
I ARRAY (2 , MRPNT R , 1 1 )= 1 

90 IF ( I ARRAY (1,1 EFAC2 ,8 ) .LT.C ) GO TO 92 
DO 91 IK= IbTRT , MRPNTR 

IF ( ISTRT.GT.MRPNTRJGO TO 91 
TE MP = I ARRAY! I , IK, 1 I ) 

IF ( TEMP. EQ . I EF AC2 ) GO TO 96 

91 CONTINUE 

MR PNTR=MRP NTR+ 1 
I ARRAY! 1 ,MRPNTR, 1 1 ) = I EFAC2 
IARRAY(2»MRPNTR,11 )=1 

92 CONTINUE 

I ARRAY ! 2, L LOW , 13)=JPNTR+1 

DO 94 I J= ISTRT, MRPNTR 

IF (I ST RT.GT. MRPNTR) GO TO 94 

I F ( I ARRAY (2»IJ»ll)- I ARRAY ( 2, IJ, II )/2*2.EQ.O) GO TO 94 
I F ACE= I ARP AY(1,IJ,11) 

DO 93 J = 1 ,3 

93 TEMPINI J) = ARRAY!LLOW, J ) 

CALL PLNLI N! N, ARRAY , I ARRAY , I FACE , LSTF AC , OBSPOS , TEMPI N, 
1PP ) 

DVRTEX =ARR AY ( LLOW » 4 ) 

IF lABS(DVRTEX) .LT.O. 10)GO TO 99 
PPX= DEPTH! PP! 1 ),PP(2) , PP ( 3 ) ) 

IF (ABS(PPX-DVRTEX) .LT..01 )GO TO 94 
IF(PPX.LT. DVRTEX. OR. PP X ,GT . 0 .00 5 ) GO TO 94 
C ENTER SET OF BLOCKING FACES 

101 JPNTR= JPNTR+1 

LSTBFC <JPNTR)=IARRAY( 1,IJ,11) 

N6R=NBR+1 

94 CONTINUE 

IARR AY ( l,LLOW, 13)=NBR 
RETURN 

95 IARRAY(2»I K,ll ) = I ARRAYI2, IK, 11 ) +1 
GO TO 90 

96 I ARRAY 1 2, IK, 11 ) = I ARRAY < 2 , I K , 1 1 ) +1 

GO TO 92 

99 Y = ARRAY ( LL OW , 2 )-OBSPOS(2) 

IF(ABS(Y).LT..1)G0 TO IOC 

IF(Y.GT.C. .AND. PP(2). LT.O.. OR. Y. LT.O. .AND. PP I 2 1 .GT.C. ) 
1GO TO 94 

IF(ABS(Y-PP(2) ) .LT..1 ) GO TO 94 
GO TO 101 

100 Z= ARRAY (LLOW, 3 )-OBSPOS(3) 

IFIABSIZI.LT.. l)GO TO 94 

IFIZ.GT.O. .AND.PP! 3 ) . LT .0 . .OR . Z .LT. 0. .AND.PP<3) .GT.C. ) 
1G0 TO 94 

IFIABSIZ-PP! 3) ).LT.. 1)G0 TO 94 
GO TO 101 

97 IF(XMAX.NE.XMIN) GO TO 88 
ARRAY! LLOW E, 5 ) =ARR AY! LLOWE,5)-.00001 
ARRAY(LHIGHE,5)=ARRAY! LHIGHE , 5 ) +.0000 1 
MRPNTR=LPNTR+1 
GO TO 86 

ENTRY TSTNNP 

TEST POINT NEAR TO KNOWN POINT 

G IS THE SET OF ON VIEW FACES OF WHICH THE NODE 
BEING TESTED IS A MEMBER 

J IS THE SET OF ON VIEW FACES BELONGING TO THE 
INTERSECTING SEGMENTS 

FIND SET OF FACES WHICH MAKE UP J AND G 
JGSET ( 1 ) =0 
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115 ISEGJ=INTLVR(NTEMP) 

IF ACE 1 = 1 ARRAY ( 1, I SEGJ, 11) 

I F ACE 1 =1 ABS ( IFACE1 ) 

I FACE 2 = 1 ARRAY! 2, I SEGJ, 11) 

IF ( IARRAY( 1, IFACE1.8) .LT.O )G0 TO 113 
CALL MERGF (JGSET, IFACE1 J 

113 IF ( IARRAYt 1, IFACE2.8) .LT.O) GO TO 114 
CALL MERGE (JGSET, IFACE2) 

114 NTFMP=NTEMP- 1 
IF(NTEMP.GT.O)GO TO 115 
I E ND=JGSET (1 ) + l 

DO 117 IT=2»IEND 

IF ( IEND.LE .1 )GO TO 117 

IFACE= JGSFTI IT ) 

NSEGS= I ARR AY ( 1 ,IFACE, 81 
T PNT R= I ARP AY (2, I FACE, 8) 

C TEST NEAR POINT WITH RESPECT TO SETS J AND G 

C SEARCH FACE I FACE FOR INTERSECTION 

121 LLOWE=LSTF AC ( TPNTR+NSEGS-1 ) 

LHIGHE=LSTFAC( TPNTR) 

IC ROSS =0 

DO 122 I K= 1 , NS EGS 
Xl=ARRAY(LLOWE,5) 

X2=ARP AY (LHIGHE, 5 ) 

XMAX=AMAX1 (XI, X2) 

XMIN=AMIN1 (XI, X?) 

I F ( XMAX-XN EAR ) 12 2, 123, 124 
124 ir(XMIN.GE.XNEAR)GO TO 122 
126 Y 1 =ARP AY ( L LOWE , 6 ) 

Y2=ARRAY(LHIGHE,6 ) 

YMAX=A MAXI (Y1 , Y2) 

IF(YMAX.LT .YNEARJGO TO 122 

TFMP1=X1*Y2-X2*Y1 

YMAX=Y MA X+ 1 

AL=TRISNS(XN EAR, YNEAP, XI, Y1,X2,Y2, TEMPI) 

AH=TRI SNS( XNEAR, Y MAX, XI, Y1.X2, Y2, TEMPI ) 

IF (AL.LT.C.. AND.AH.GT.O. .OR.AL.GT.O.. AND. AH.LT.'"' . ) 

1 ICROSS=ICROSS+l 
L LOWE= LH IGHE 
LhIGHE = LSTFAC( TPNTR + IK ) 

122 CONTINUE 
GO TO 116 

123 IF(XMAX.NE.XM1N)G0 TO 126 

ARRAY ( LLOW E , 5 ) = ARR AY ( LLOW E, 5J-.00001 
ARRAY( LHIGHE ,5) = ARRAY ( LH1 GHE , 5 I ♦. OOOOl 
GO TO 121 

116 IF ( ICROSS- ICR0SS/2*2.NE.C )G0 TO 118 
CALL DELETE( IWRKNR,IFACE) 

GO TO 12C 

118 CONTINUE 

C POINT LIES INSIDE POLYGON-SEARCH SET 

I END= I WRKNR ( 1 )+l 
DO 119 I K=2, I END 
IF ( I END.LE . I )G0 TO 119 
IF ( IFACE.EO. IWRKNR( IK) ) GO TO 117 

119 CONTINUE 

CALL PLNLINI N, ARR AY, I ARRAY, I FACE , L STF AC , OB SPOS , TEMPI N, 
1PP) 

OPTHPP=DEPTH( PP( 1 ) ,PP(2),PP(3) ) 

IF(DPTHPP.LT.DPTHNR) GO TO 117 
I WRKNR ( I WRKNR ( 1)+2)=IFACE 
IWRKNR(1 )=IWRKNR( 1 )+l 

120 I CCU NT = I COUNT- 1 

117 CONTINUE 
RETURN 

C 

ENTRY LNTRSC 

C THIS SUBROUTINE CALCULATES THE INTERSECTION OF ALL 

C SEGMENTS WITH A GIVEN SEGMENT IN THE PICTURE PLANE 

I XPNTR=LPNTR+1 
JGSET ( 1 )=0 
I NPSCT =C 
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I 0 VR LP =G 

IFACE1=IAPRAY( l,CURSEG,ll) 

I F AC El = I AB S ( I F ACE 1 ) 

I FACE 2 = 1 ARRAY ( 2»CURSEG, 11 ) 

IFtABStAAL ).LT • . 000 1 ) GO TO 68 
CRNTSL=BBL/AAl 
61 TEMP2= YLOW -CRN TSL* XLOW 

T E PP3= XLOW *YH I GH- XHIGH*YLOW 
X 1 =A RR AY ( L LOW , 1 ) 

Y1=ARPAY(LL0W,2) 

Z 1 = ARR AY ( L LOW » 3 ) 

X2 = APR AYtLHIGH ,1 ) 

Y2=ARP AYtLHIGH ,2 ) 

Z2=ARRAY ( L H I GH » 3 ) 

TEMP1=X1*Y2-X2*Y1 

TEMP5=Y1*Z2-Y2*Z1 

TEMP6=Z1*X2-Z2*X1 

DO 702 1 = 1 ,3 

AA A ( I >=ARR AYtLLOW, I) 

702 BBB(I)=ARP AYtLHIGH, I) 

I E ND=L PNTR 

DO 67 I EX AM= 1 » I END 

IFAC1=IARRAY(1 , I EXAM, 11) 

IFAC1=IABS(IFAC1) 

IFAC2=IAPRAY (2, I EX AM, 11) 

IFt IFAC1.E0. IF AC El. OR. IFAC2.EQ. IFACE1 .OR. IFAC1 .EQ. 

1 IFACE2 .OR. IFAC2.EQ. IFACE2.0R. IF AC 1 .EO. IF AC 2. OR. 

2IARRAY (1 ,1 FAC1 , 8 ) . LT .0 . AND. I ARRAY I 1 , IFAC2, 8 ) .LT .0 ) 

1G0 TO 67 

LLOWE= IARR AY ( 1 , 1 EXAM, 9) 

LLOWE=IABS(LLOWE) 

IF (ARRAY(LL0WE,4) .GT.l. )G0 TO 67 
LHIGHE=IARRAY l 2, IEXAM,9) 

LHIGHE=IABS(LHIGHE) 

XL0WE=ARPAY(LL0WE»5) 

YL0WE=ARRAY(LL0WE,6) 

XHIGHE=ARRAY(LHIGHE,5) 

YHIGHE=ARRAY(LHIGHE»6) 

C TEST FOP INTERSECTION USING TRI-SENSE TEST 

AL=TRI SNSt XL OWE ,YLOWE , XLOW , YLOW , XH IGH , YH IGH, T EMP3 ) 
AH=TR I SNS ( XHIGHE, YHIGHE, XLOW, YLOW, XH IGH, YH IGH, TEMP3) 

C ARE POINTS COLL INEAR 

INDAB1=1 

IFIABSIAL) .LT.1.E-5)INDAB1=INDAB1+1 
IF tABStAH) .LT. 1 .E-5 ) I NDAB1= INDAB1+2 
GO TO (611 ,613,614,72) »INDAB1 

613 ICOMN=LLOWF 

I D IFF=LH IGHE 
GO TO 612 

614 ICCMN=LH IGHE 
ID IFF=LLOWE 
GO TO 612 

611 IFtAL.LT.C .. AND.AH.LT.O. .OR.AL.GT.O.. AND.AH.GT.O. ) 

1G0 TO 67 

612 TEMP4=XL0W E*YH IGHE-XH IGHF*YLOWE 

AL = TRI SNSt XLOW, YLOW, X LOWE, YLOWE, XHIGHE, YHIGHE, TEMP4) 
AH=TRI SNSt XHIGH, YH IGH, XLOWE,YLOWE, XHIGHE, YHIGHE, TEMP4 ) 
IFCINDAB1.NE.1 )G0 TO 615 
I NDAB2=1 

IF (ABS(AL) .LT. 1 . E- 5 ) I NDAB 2= I NDAB2+ 1 
IF (ABS(AH) .LT.l.E-5)INDAB2=INOAB2+2 
GO TO (615 ,616 ,617) , I NDAB2 

616 H I NSCT = XLO W 
VINSCT=YLOW 
GO TO 701 

617 H I NSCT = X HI GH 
V I NSCT =YH I GH 
GO TO 7C1 

615 IFtAL.LT.C.. AND.AH.LT.O. .OR. AL.GT.O. .AND.AH.GT.O. ) 

1G0 TO 67 

IFt INDAB1.NE. 1 )G0 TO 620 
701 CONTINUE 
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OP 70 3 1=1,3 
A A AF ( I ) =AP PA Y( LLOWE , I ) 

733 BPPF ( I ) = ARRAY( LHIGHE, I ) 

CALL P IERC ( AAA , OBSPOS ( 10 ) »BBB,AAAE»BBBE*PP I 
I X 1 

734 GC TO (711 ,712 ,713,67) , IXX 

711 AL = TR I SNS( OBSPOS ( 10) , OBSPOS ( 1 1 ) , X 1 , Y1 , X2 , Y2 , TFMP 1 ) 

AH = TRISIMS( PP( 1 ),PPI2) , XI, Y1,X2,Y2, TEMPI) 

GO TP 714 

712 AL=TRI SNS< OBSPCS ( 1 1) , OBSPOS ( 1 2 ) ,Y1 , Z 1 , Y2 , Z 2 » T EMP5 ) 
AH=T R 1 SNS ( PP(2 ) , PP ( 3 ) ,Y1,Z1,Y2,Z2,TEMP5) 

GC TO 714 

713 AL=TP I SN S ( OBSPOS (12) , OBSPOS ( I T ) ,Z1 ,X1 , 72 ,X2,TEMP6 ) 
AH=TRISNS(PP(3),PP(1) ,Z1,X1,Z2,X2,TEMP6) 

714 1XX=IXX+1 

IF (ABS (AL ) .LT.FOCUS)GO TO 704 

IF (AL.LT.C ..AND.AH.GT .O..OR.AL.GT.O.. AND. AH.LT.O . ) GO 
1TC 67 

626 AALE=XHIGHE- XLOWE 
BBLF=YHIGHF-YLOWE 
IF (ABS(AALE) .LT. .0001 ) GO TO 6<» 

EXAMSL=BHL F/AALE 

IF ( INDAB2. NE.l )G0 TO 64 

6 2 HI NSCT = ( TF Mt> 2 + F.XAMSL* XLOWE - Y LOWE)/ ( EX AMS L-CRNT SL ) 

63 VINSCT=TFMP?*CRNTSL*HINSCT 

64 CONTINUE 

I X PNTP = I XPNTR4- 1 

INRSCT = INRSCT + 1 

FNCRML ( INRSCT, 1)=HINSCT 

F NCR ML ( INRSCT,2)=VINSCT 

IARRAY (1 , IXPNTR»9 )=IEXAM 

IF(IOVRLP) 31,67,76 

620 IF(JGSFT( 1 ).EQ.O)GO T 0 622 
JFND = JGS FT ( 1 ) + l 

DC 621 I SR =2 , J END 
I F ( ICOMN.EQ. JGSFT( ISR ) )G0 TO 625 

621 CONTINUE 

622 JGSETI 1) =JGSET( 1 ) +1 
JGSFT( JGSETI 1)+1 ) = I COMN 
I NTLVR ( JGS E T ( 1 ) )=[DIFF 
GO TO 67 

625 XC =APP AY ( ICIFF.5) 

YC=ARPAY(ICIFF,6) 

MARK= INTLVR( ISR-1 ) 

X T = APR AY (MARK, 5) 

YT=ARR AY ( M ARK , 6 ) 

AL = TR I SN S ( XO,YO, XLOW, YLOW, XHIGH,YHIGH, TEMP 3) 

Ah=T P I SNS ( XT,YT,XLOW,Y LOW , XH I GH »YHIGH,TEMP3) 

IF (AL.LT.C. .AND. AH.LT.O. .OR. AL.GT.O. .AND.AH.GT .0 . ) GO 
1TC 621 
GC TO 7C1 
63 CP NTSL = 1C f CO . 

GO TO 61 

69 EXAMSL=10C00. 

GO TO 62 

C OVERLAP HAS BEEN ESTABLISHED 

C CHECK FOR END POINTS OF COMMON SEGMENT 

72 IF(CPMTSl.GT .1000. ) GO TO 77 

R I GHT= AM I N 1 ( AMAX1 ( XLOW, XHIGH) , AMAX1 ( XLOWE, XHIGHF ) ) 
ALEFT=AMAX 1( AM INI ( XLOW, XHIGH) , AMIN1 I XLOWE , XHIGHE ) ) 

IF (RIGHT -A LEFT ) 6 7, 74, 75 

75 I C VR LP= 1 

74 HI NSCT=R IGHT 
GO TO 63 

76 HI NSCT = ALEFT 
I C VRLP =0 

GO TO 63 

C SLOPE IS VERY HIGH USF VERTICAL COORDINATES 

77 RIGHT=AMIN1( AMAX1( YLOW,YHIGH) , AMAXK YLOWE, YHIGHE) ) 
ALEFT = AMAX 1( AM INI I YLOW.YHIGH) , AM I N 1 ( YL OWE , YH I GHE ) ) 

IF (RIGHT- A LEFT) 67, 79, 80 

80 IOVRLP=- 1 
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79 V I NSCT = R IGHT 
H I NSCT =XLOW 
GO TO 64 
81 VI NSCT=ALEFT 
1 0 VR LP=0 
Gf TO 64 
67 CONTINUE 
RETURN 

ENTRY WINDOW 
I X1=XSTART(JDSPLY) 

IX2=XEND( JDSPLY) 

IY1=YSTART (JDS PLY) 

I Y2=YEND< JDSPLY) 

IFUX1.GE. 1 . AND. I X2 .GE . 1 ) GO TO 461 
IF(IXl.LE.-l.AND.IX2.LE.-l)GO TO 461 
IFUY1.GE. l.AND. IY2.GE.DGO TO 461 
IF (IYl.LE.-l.AND.IY2.LE.-l»GO TO 461 
I AGN=1 

X=XSTART( JDSPLY) 

Y=YSTART(JDSPLY) 

I X=I XI 

I Y= I Y 1 0 V 

AO 1 IF(IX)411,412,413 
All VINSCT=Y+CRNTSL*(-1.-X) 

A21 IF (ABS (VINSCT ) .LE.I.IGO TO A26 
A23 IF (IY)4?4,461,425 
426 XTEMP=-1. 

GO TO 447 

A24 HINSCT=X+(-l.-Y)/CRNTSL 

Y T EH P- — 1 

422 IF(ABS<H*INSCT) .GT.l.)GO TO 461 
XTEHP=HI NSCT 
GO TO 450 

425 HINSCT=X+< l.-Y )/CRNTSL 
YTEMP= 1 . 

GO TO 422 

412 IF( IY) 42 4, 432,425 
432 XTEMP=X 

YTEMP=Y 
GO TO 450 

413 VI NSCT=Y+C RN T SL* ( 1 • — X I 
IFIABSIVINSCT ) .LE. 1. )G0 TO 446 
GO TO 423 

446 XTEMP=1. 

447 YTEMP=VINSCT 

450 GO TO (451 ,460),IAGN 

451 X=XEND( JDSPLY) 

Y = YEND( JDS PLY ) 

IX=IX2 

IY=IY2 

I AGN=2 

XSTARTI JDSPLY)=XTEMP 
YSTART ( JDSPLY ) =YTEMP 
GO TO 401 

460 CONTINUE 
XENO(JDSPLY)=XTEMP 
YEND( JDSPL Y»=YTEMP 
RETURN 

461 JDSPLY=JDSPL Y- 1 
RETURN 

END 



SUBROUTINE PLNL IN ( N, ARRAY, I ARRAY, I FACE , L STFAC , OB SPOS , 
1TEMPIN,PP) 

INTEGER+2 IARRAY 

DIME NS ION ARRAY (N, 13) , I ARR AY ( 2 , N, 1 3 ) . L STFAC ( 1 ) , 

108 SPOS ( 1 ) , TEMP INI 1) » AA( 3 ) , BB (3 ) ,CC ( 3 ) , PP (1 ) 
NTTL=IARRAY( 1, I FACE, 8) 

LOC= IARRAY (2, IFACE,8) 

I POI NT=LSTFAC( LOC+NTTL-1) 
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nr 98 j = i , 3 

08 AA(J)=ARPAY( I PO l NT ,J) 

I POI NT =L STFAC ( LOC ) 

DP 09 J = 1 ,3 

99 Bb ( J ) = APR A Y ( IPOINT* J) 

I PC I NT =L STFAC ( LOC+1) 

DP ICC J=l,i 

100 CC(J)=APPAY( IPCINT »J) 

CALL PIERC <AA,BB,CC,OBSPUS,TEMPIN,PP) 

RETURN 

END 



SUBROUTINE P I ERC ( P 1 ♦ P 2 , P 3 , PL I , PL 2 , PP ) 

DIMENSION PI ( 3) , P2 (3) , P3 (3 ) ,PL1 ( 3 I . PL 2 13 > , PP ( 3 ) 

THIS SUBROUTINE CALCULATES THE INTERSECTION OF A 
PLANF DETERMINED BY POINTS P1,P2,P3 AND A LINE 
WHICH CONTAINS POINTS PLI AND PL2. 

THE COORDINATES OF THE INTERSECTION ARE RETURNED 
IN THE ARRAY PP 

THE DIRECTION NUMBERS OF THE NORMAL TO THE PLANE 
APE A, B, C. 

A= ( P2 ( 2 ) -P 1 ( 2 ) )*( P3I3 )-Pl (3))-(P2( 3) -PI ( 3) )*I P3( 2 )- 
1P1 ( 2 ) ) 

B=(P2(3)-PI(3) ) * ( P 3 ( I ) — P 1 ( 1 ) )-(P2( 1)-P1( I) ) * ( P 31 3 ) - 
IPI ( 3)) 

C=(P?( I )-P 1 ( 1) )*(P3(2)-PI(2) )-(P2(2)-Pl(2) )* I P3( 1 ) - 
IP1 (I M 

C=-A*P I ( 1 ) -B*P1 I 2) -C*P1 ( 3) 

Al = PL2 ( 1 ) - PL 1 ( 1) 

BL = PL2 (2I-PLH2) 

CL=PL2(3)-PL1( 3) 

T = -( A* PL I ( 1 1 +B*PL 1 I 2 ) +C*PL 1 ( 3 ) +0 ) / ( A*AL+B*BL+C*CL I 
PP(1 )=AL*T+PLl (I) 

PP < 2 ) = Bl *T+PL 1 ( 2 ) 

PP (3 )=CL*T +PL1 I 3 I 

RETURN 

ENC 



FUNCTION D EP TH ( X , Y , Z ) 

COMMON /SDFB/ ALPHA, BETA .GAMMA, PS I , THETA, PH I , OBJ MV (3) , 
LVIEWMV (3) , FOCUS, YOFF, ZOFF , SC LE , HM ATR X ( A, A ) ,OBSPOS( 12) 
DEPTH=X*HMATRX(1,1 )+Y*HMATRX( 2,1 ) + Z*HM AT RX ( 3 , 1 )+ 
1HMATRX ( A, 1 ) 

RETURN 

END 



1 

2 

3 



SUBROUTINE DEL ET E ( L I ST , ITEM ) 
DIMENSION LIST(l) 

N = L I S T ( 1 ) 

I E ND=N + 1 

DO 1 I =2,1 END 

IF ( I END . EO • 1 ) GO TO 1 

IF (ITEM. EC. LIST! I ) )G0 TO 2 

CONTINUE 

RETURN 

IF ( I .EC. I E ND ) GO TO 3 
L I ST ( I > -= L I ST ( I END ) 

L I ST ( 1 ) = N- 1 

RETURN 

FND 



SUBROUTINE MER GE ( L I ST , I TE M ) 
DIMENSION L I ST (II 
N=LI ST ( 1 ) 

IF IN.EQ.C) GO TO 2 

I END = N + 1 

DO 1 1=2, I END 

I F ( ITEM. EQ. LIST! I ) ) GO TO 2 
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1 CONTINUE 

L I ST (N+2 ) = ITEM 
L I ST ( 1 ) =N* 1 

2 CONTINUE 
RETURN 
FND 



SUBROUTINE R E ADCR ( N , T EMP I N ) 
DIMENSION TEMPINI3) 
IFIN.EO.OGO TO 1 
R F AO ( 5 , 2 ) N 
RETURN 

1 RFAD(5,3)< TEMP INI I ), 1 = 1,3) 
RETURN 

2 FORMAT ( II 1C) 

3 FORMAT (3F2C. 6) 

END 



SUBROUTINE CROSS(A,B,C) 

DIMENSION A(3)»B(3)»C(3) 

THIS SUBROUTINE CALCULATES THE CROSS PRODUCT 
A X B FOR 3 DIMENSIONAL VECTORS 
C< I)=A(2)*BI3)-A(3)*B<2) 

C ! 2 ) =A ( 3 ) * B( 1>-A( 1)*B<3> 

C ( 3 ) =A ( 1 ) * B ( 2 ) - A ( 2 ) *B ( I) 

RETURN 

END 



SUBROUTINE LABEL 

COMMON/SDFB/ ALPHA, BET A, GAMMA ,PSI , THETA. PHI , OBJ MV (3) , 
1VI EWMV 13 ) , FOCUS, YOFF, ZOFF , SCLE , HMATRX ( 4, 4 ) ,OBSPOS( 12) 
WRITE! 6,1) ALPHA, BETA, GAMMA, PSI, THETA, PHI, (OBJMV! I ), 
11=1, 3) , (VI EWMV ( I ) , 1=1,3) , YOFF, ZOFF, FOCUS, SCLE 
1 FORMAT ( AX , * AL PHA= * » 1F12.6,9X, ' BETA= • , IF 12 .6, 9X, 

1 ‘GAMMA = • ,1F12.6,/7X,'PSI = ‘,1F12.6,8X,‘ THE TA= • , IF 1 2 . 6 , 
28 X, • PHI = ‘, 1F12.6,/2X, ‘OBJMVI 1 ) = • , IF 12 . 6 , 6 X , 

3* OBJMV (2) = • , 1F12.6.6X, ‘OBJMV (3 ) = • , IF 12. 6, /IX, 
4‘VIEWMV(1)=* ,1F12.6,5X,‘VIEWMV(2)=‘ ,1F12.6,5X, 

5 • V IEWMVI 3 ) = * , 1F12.6,/3X, *YOFF= •, IF 12.6, 5 X, • ZOFF=‘ , 
61F12.6»5X, *FOCUS=* , IF 1 2 .6 , 5X , • SCALE= * , IF 12 .6 ) 

WP ITE( 6, 595) OBJMV! 1 ) , OBJMV! 2) , OBJMV! 3) .ALPHA, BETA, 
1GAMMA. VI EWMV ( 1 ) , V I EWMV ( 2 ) , V I EWMV ( 3 ) 

WRITE! 6,59 6) PS I, THETA, PHI, FOCUS, SCLE, YOFF, ZOFF 

595 FORMAT ( 1H1 , 13! /), 18X. ‘PARAMETERS FOR THIS VIEW*, 
1///15X, ‘OBJECT POSITION ( 1 ) • , 1 5X , F 10 . 1 , 

2//15X, ‘OBJECT POSITION ( 2 ) • , 1 5X ,F 10 . 1 , 

3//15X, ‘OBJECT POSITION ( 3 ) • , 15X, F10. 1, 

4// 15X, ‘OBJECT ANGLE ALPHA* , 16X , F 10 . 1 , 

5// 15X, ‘OBJECT ANGLE BETA*, 17X.F10.1, 

6// 15X, ‘OBJECT ANGLE GAMMAS 16X , F 10 . 1 , 

7// 15X, ‘OBSERVERS POSITION ( l ) • , 1 2X , F 10 . 1 , 

8// 15X, ‘OBSERVERS POSITION ( 2 ) • , 1 2X , F 10. 1 , 

9// 15X , ‘OBSERVERS POSITION ( 3 ) • , 1 2 X , F 10 . 1 ) 

596 FORMAT (/15X, ‘OBSERVERS ANGLE PS I • , 1 5X , F 10 . 1 , 

1// 15X, ‘OBSERVERS ANGLE THETA •, 1 3X , F 10 . 1 , 

2// 15X, ‘OBSERVERS ANGLE PHI • . 1 5X , F 10 . 1 , 

3// 15X, ‘FOCAL LENGTH* ,22X,F10.1, 

4// 15X, • SCALE* ,29X,F10.1, 

5// 15X, ‘HORIZONTAL OFF SET • , 17X , F10 . 1 , 

6// 15X, ‘VERTICAL OFFS ET • , 19X , F 10 . 1 ) 

RETURN 

END 
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SUBROUTINE OR A W I T ( NL I NES , X S T ART , Y ST ART , X EN C, Y E NO, I R » 
REAL *4 TITLEK 31/12 HCARRIER (II / 

REAL*4 T ITLE2( 31/12 HCARRIER (2) / 

R E AL *4 TITLE3( 31/12 HCARRIER (3) / 

REAL* 4 TITLE4( 3 I / 1 2HC ARR I ER (4) / 

RFAL* 4 TITLE5(3)/12 HCARRIER (5) / 

RFAL XWNDOW( 5) /3. ,-3. ,-3. ,3. ,3./ 

RFAL v WN DO W ( 5 ) / 3 . » 3 . * - 3 • » - 3 • » 3 • / 

PE AL *4 IPENT ( 5 I /23HR. B. DESENS - BOX D/ 

D I MENS ION XSTAR T ( 1 ) , Y S TAR T ( 1 I , XEND ( 1 I , YE ND ( 1 I 

CALL PLOTS 

CALL PLOT( 4. ,6. ,-3) 

CALL PLOT( XWNDOWl 1 I , YWNDOW( 1 I ,3 I 
DO 2 1=2,5 

CALL P LOT ( XWNDOWl I I ,YWNOOW( I ) ,2 I 
2 CONTINUE 

DC 1 I =1 » NLI NES 
XSTART ( I 5 = XSTAR T ( I )*3. 

Y ST ART (I ) = YS T ART ( I )*3. 

XFND ( I ) = X E ND ( I 1*3. 

Y END ( I I = YFND ( I )*3. 

CALL PLOT ( XSTART ( I) , Y ST ART ( II , 3 I 
CALL PLOT I XEND ( I I » YEND( I I ,21 
1 CONTINUE 

GO TO ( 15, 14, 13, 12 , 11 I , IR 

21 CONTINUE 

CALL SYMBOL ( -3.C»5.3»C.14» I DENT ,0.9,20) 

CALL PL0T(-4. 0,8. 0,-3) 

CALL PLOTE 
RETURN 

11 CALL SYMBOL( -1 . 2 , -3 . 4 , 0 . 2 8 , T ITLE1 ,0.0 , 12 I 
GO TO 21 

12 CALL SYMBOH-l . 2 , - 3 . 4 , 0 . 28 , T I TL E 2 , 0 . 0 , 12) 

GO TO 21 

13 CALL SYM BO L(-l. 2,-3. 4,0.28, TITLE3, 0.0,12) 

GO TO 21 

14 CALL SYMBOL(-1.2,-3.4,0.28,TITLE4,D.0,12) 

GO TO 21 

15 CALL SYMB0L(-1 . 2 , - 3 .4 , 0 . 2 8 , T I TL E5 , 0 . 0 , 12 ) 

GC TO 21 

END 



SUBROUTINE DR AWVP ( NL , X 1 , Y 1 , X2 , Y2 ) 

D I MENS ION XI ( 1 ) ,Y1 ( 1) , X2( 1 ) , Y2( 1 ) 

DIMENSION DRAW ( 1C ,200 , JXY ( 200 ) 

COLUMN DIMENSION OF DPAW AND DIMENSION CE JXY MUST 
BE GREATER THAN OR EQUAL TO TWO TIMES THE NUMBER 
OF LIMES TO BE DRAWN 

ISTEP IS THE NUMBER OF SYMBOLS PER LINE 
ND IS THE ROW DIMENSION OF ARRAY DRAW 
I STF P= 1C 
N D = 1 C 

DG 1 J =1 , N L 
JJ=J*2 

DRAWU , J J- 1 ) =X 1 ( J ) 

DR AW ( 1 , J J ) — Y 1 ( J ) 

XSTEP=(X2( J)-Xl(J) J/ISTEP 
YSTEP=(Y2(J)-Y1(J) I / ISTEP 
DO 1 I =2 , 1 ST E P 

DRAWU , J J- 1 ) = DRAW ( I-1,JJ-1)+XSTEP 
DRAWU, JJ ) = DRAW ( l - 1 , J J )+YSTEP 

1 CONTINUE 
NLTT=NL*2 

DC 2 I =1 , N LTT 

2 J X Y ( I ) =1 

CALL V PLOT (DRAW, JXY, I S TEP , NO , NL , 1 , - 1 . , 1 . , - 1 . , 1 . ) 
RFTURN 
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END 



SUBROUTINE VPL OT ( X Y , J XY, N, ND IM, NCUR, I SCALE, XL, XU, YL 
1 YU ) 

DIMENSION IGRID( 101) , XS( 11) ,YS( 13) , ICHAR ( 7 ) , XY( 1 ) 
DIMENS ION JX Y ( 1 ) 

DATA ICHAR/1H+»1H*»1H.»1H$»1H=»1H.»IH / 

XS( 1 )= XL 
XMAX=XU 
YM IN=YL 
YS ( 1 ) = YU 

IF (ISCALE.NE.O )GO TO 32 
XMAX=- 1 • OE 20 
XS ( 1 )=-XMAX 
YS(1)=XMAX 
YM IN=XS( 1) 

J2=0 

DO 31 J= 1 » NCUR 
J2=J2*2 

JIX=(JXY(J2-1)-1)*N0IM 
JIY*< JXY( J2)-l ) *ND I M 
DO 31 1=1, N 
I JX=JIX+I 
I JY=JI Y+I 

IF ( X Y ( IJX) .GT . XMAX ) XMAX=XY ( IJX) 

IF ( X Y ( I JX) .LT.XSm )XSU )=XY< IJX) 

IF(XYUJY) ,GT.YS( l ) )YS( 1)=XY( I JY) 

IF(XY( IJY) .LT.YMIN )YMIN*XY( IJY) 

31 CONTINUE 

32 XR=XMAX-XS<1) 

IF(XR.EQ.0.0)XR=1.0E-20 
YR=Y S ( 1J-YMIN 
IF(YR.EQ.0.0)YR=l.0E-20 
XT=XMAX*XS (1 ) 

YT=YMIN*YS(1) 

IFIXT.LT .0.0) IYAX=100.0*(-XS( 1) )/XR+1.5 

IF(YT.LE.0.0)IXAX=48.0*YS(1)/YR+1.5 

XMAX=XR/10. 

DC 46 1=2.11 

46 XSC I )=XS( I-i U-XMAX 
XMAX=YR/12. 

DO 47 1=2. 13 

47 YS(I)=YS( I-D-XMAX 

PRINT 10, ( XS ( I), 1=1, 11) 

11=1 

KK=0 

DO 146 L IN E=1 , 49 
DC 101 J=1.101 
101 IGR I D( J )= ICHAR ( 7 ) 

IF(YT.GT.C.O)GO TO 109 
IF(LINE.NE.IXAX)GO TO 109 
DO 105 J-1.101 
105 IGRIDI J)*lCHAR(6) 

109 IF(XT.LT.C.O) I GRID! I YAX ) * ICHAR (6 ) 

J2=C 



DO 125 J=1 .NCUR 
J2=J 2+ 2 

JIX= ( JXY( J2-1 )-l )*NDIM 
JIY=( JXY( J2)-l ) *ND I M 
JC*MOD ( J , 5 ) 

DO 125 1=1, N 
I JX=JI X+I 
IJY=JIY-fI 

I PTY=48.C* (YS(1)-XY( IJY) l/YR+l. 5 
I F ( IPTY.GT.49) IPTY=49 
IFUPTY.LT. l)IPTY=i 
IF(IPTY.NE.LINE)GO TO 125 
IPTX=100.0*(XY( I JX)-XS( 1) ) /XR+1 • 5 
IFUPTX.LT. i)IPTX=l 
IF ( IPTX.GT.101 )IPTX=101 
IF ( JC.NE.O )G0 TO 119 



, 
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IGRIDt IPTX )= I C H AR ( 5) 

GO TO 12 c 

119 IGR ID< IPTX )= ICHAP ( JC ) 

125 CONTINUE 

IF (KK.GT.f )GO TO 134 

PRINT 2C, YS( I l ) , ( IGRID! I ) , 1 = 1, 1 Ul ,YS( I I ) 

11=11+1 
GO TO 135 

134 PRINT 3C t ( IGR 1 0 ( I ) , I = 1, 101 ) 

135 KK =K K+ 1 

I F ( KK . NE . 4 ) GO TO 146 
KK=C 

146 CONTINUE 

PRINT 40,1 XS( I ) ,1=1,11) 

RETURN 

10 FORMAT (1 HI , 1 P E 1 5 . 2 , 10 E 1C . 2 / 10X , 1H* , 20 ( 5H + **** ) , 2H + * ) 
20 FORMAT { 1PE 13 . 2 , 1H+ , 101A1 ,1H+»F9.2 ) 

30 FORM AT (1CX , 1 H* , 10 1 A 1 , 1 H* ) 

40 FORMAT! 1C X ,1H* ,2^ < 6H+**** ) , 2H + */ 1 PE 16 . 2, 10 E 1C .2) 

END 



REPRESENTATIVE DATA 
FIRST TKO FACES OF AIRCRAFT CARRIER 



36 



353.4 
36 5.0 
955 .0 

K 99.0 
1068. C 
1046.C 
1352. C 
35 3 .0 
1052. C 
1358.5 

358.5 

1358.5 
1365. C 

450.5 
1365. C 

1368.0 

1365.0 

1058.5 
1^52.0 
1346. C 

93C.C 

930.0 

828.0 
828. C 
647. C 
647. C 
694. C 

694.0 

647.0 
647. C 
64 7. r 
394. C 

332.0 



O.C 
0.0 
0 .c 



- 103.9 



-131. n 
- 1 3 1 . C 



5.7 
-33. 5 



-79.8 

-68.5 

62.7 

45.6 

-64.0 

45.6 

5.7 




57.0 
57.0 
57. 3 
57.0 
57.0 
57.3 
57.0 
57.0 
57. C 
57. r 
57.0 
57. C 
57.0 
57.0 
57.0 



-131.° 



i ji • 

-33. 5 
-68. 5 



i j. j . • 

114. r 
1 14.0 
63.0 



5.7 
45. 6 
62.7 
50.2 
85. 6 
90. 0 

114.0 

1 14.6 

1 10. C 

110.0 
52.5 
52. 5 

1 10.3 



57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57. C 
57. C 
57.0 

57.6 

57.3 

57.0 

57.3 

57.6 

57.0 

57.0 

57.0 

57.6 

57.0 

57.0 

57.0 



694.0 
694 .0 
694. C 
694.0 



52.5 
1 10. 0 
110.6 

52. 5 



57. C 
57.0 
79.8 
79.8 
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COMP UT F R PROGRAM FOR THE SDS-9300 



COMMUN/SOF B/ ALPHA , BETA , GAMMA , PS l , THFTA f PH I ,OB J MV ( 3 ) , 

1 V I FWMV ( 3 ) , FOCUS»YOFF, ZOFF , SCLE » HMATRX ( 4, 4 ) ,OBSPOS( 12) 
I) IMF NS ION ARRAY! 8^ ,13 ), l ARRAY (2 ,3C ,13 ) ,FNOPML< 8' , 3 ) 
DIMENSION l STFACI 2 5 r ) ,LSTBFC( 1 ) 

D I MENS ION XSTART ( 80) ,YSTART( 30 ) ,XENi)( 80) , YENDI 80 ) 

ECUI VALFNCE (ARRAY! 1, 1 ) , I ARRAY! 1,1,1)) 

ECU I VALENCE ( FNORml! 1 , 3 ) , LSTBFC C 1 ) f 
EXTERNAL FEAOCR 
N= 8C 

NFACES=32 

CALL OF SERB! ARRAY , I AP R AY , FNORML , L S TF AC ,N,READCR, 

1XS TART, YST ART, XFND, YFND,NL I NE S , L S TBFC , NU SE D ) 

DO 1 J=1,N FACES 
CALL FACES 

1 CONTINUE 
CALL LINES 
CALL CCVCVX 

2 C C NT I NUE 

CALL CCNV3D! N, ARRAY, NUSFD) 

CALL HDNSPE 
CALL ALTER 
CALL CMPUT 
CALL DATSTR 

CALL DRAWVP! NL I NE S , XSTART , YST ART , XEND, YEND ) 

CALL LABEL 

IHSFNSF SWITCH 4)9,3 

3 CONTINUE 
PAUSE 

CALL ERASF 

RE AD (5, 5 ) ALPHA, BET A, GAMMA, (OBJMV! I ), 1=1, 3) 

RE AD ( 5 ,5) P SI , THETA, PH I , ( V I FWMV ( J ) , J=1 ,3) 

READ! 5 , 1C ) FOCUS, SC ALE, YOFF, ZOFF 
GC TO 2 

5 FORMAT ( 6F 1C . 3 ) 

10 FORMAT (4F1C. 6) 

9 CONTINUE 
END 



SUBROUTINE C0NV3D! N, PNTLST, NUSED) 

COMMON/SDFB/ ALPHA, BET A, GAMMA, PS I, THETA, PHI , OBJ MV (3 », 
1VI EWMV! 3) , FOCUS, YOFF, ZOFF , SC LE , HM ATRX ( 4 , 4 ) ,OBSPOS( 12 ) 
DIMENSION PNTLST ( N, 13 ) ,DIS PLY! 3),HCR03D(4) .TEMP! 4) 

THIS PROGRAM USES THE FOURTH COORDINATE OF THE 
HOMOGENEOUS SET EQUAL TO I.p AND THEREFORE REDUCES 
THE NUMBER OF MULTIPLICATIONS NEC F SSARY 
CALL VMVMAT 
TEMP (4 )=1 ,0 
DO 5 1=1, NUSED 
DC 1 I N= 1 , 4 

1 HCRD3D! IN)=0 .3 

CONVERT THREE-DIMENSIONAL COOROINATFS TO FOUR- 
DIMENSIONAL HOMOGENEOUS COORDINATES 
DO 2 I M=1 , 3 

2 TEMP! I M)=PNTLST( I , IM) 

DO 3 K = 1 , 4 
DC 3 J = 1 , 4 

HCRD3D (K ) =HCRD3D( K ) +TEMP! J ) *HMATRX ( J , K ) 

3 CONTINUE 
DC 4 I D=2 » 3 

DISPLY! ID) =HCRD3D( ID) /HCRD3D(4) 

4 CONTINUE 

C SAVE DEPTH INFORMATION 

01 SPLY ( 1)=HCRD3D( 1 ) 

DO 5 I S= 1 , 3 

5 PNTLST! I ,1 S+3) =DI SPLY! IS) 

END 

RETURN 



214 



oonnnonnnooooononnooonnonnnonnnnnnnonnoon 



scbr out i ne vmvmat 

CC MMON/SPF P/ ALPHA, BFT A, GAMMA, PS I t THETA, PH I ,DB J ( 3 ) , 
1VI FWMV( 3) , FOCUS, YGFF , 7 GPP ,SCLF , HMATRX (4,4 > f (IBS PUS ( 12 ) 
I) I MEN'S ION RO THAT < 4,4 ), OR I MAH 4,4) , TEMPI 3) 

PI MENS ION TFMPY( 3 ) ,TEMP/ ( 3) , TEMPF( 3) 

THIS SUBROUTINE CALCULATES THE 4 X u matrix FOR 
PFRSPCT IVE TRANSFORMATIONS 



Z 



. w 



X 

VIEWPLANE 

AXES 



• • • • 

U 

OBJECT . 
AXES .V 



. Y 



DIFIM T I UN S 

ANGLES (ENTERED IN DECREES) 

ALPHA ROTATION OF U INTO V 

BETA ROTATION 0 F W INTO U 

GAMMA ROTATION OF V INTO W 

PSI ROTATION OF X INTO Y 

THETA ROTATION OF Z INTO X 

PHI ROT AT ION OF Y INTO 7. 

PPJMV MOVEMENT OF UVW ORIGIN 
MEASURED IN XY 7 COOROS 
VIFWMV MOVEMENT OF XY 7 AXES 
FOCUS VIEWING DISTANCE FROM 

PICTURE PLANE ( YZ PLANE) 

YCFF HORIZONTAL OFFSET IN PICTURE PLANF 
ZOFF VERTICAL OFFSET IN PICTURE PLANE 
SCLE NORMALIZED CISTANCE FROM CENTER TO EDGE OF PICT 
NORMAL VALUE FOR FULL PICTURE IS 1/2 
NORMAL PATIO OF SCLE TO FOCUS IS BETWEEN 1/4 AND 1/3 
IF FOCAL LENGTH IS INCREASED WITH SCLE HELD CONSTANT 
THE PTSUIT IS AS IF A TELEPHOTO LENS WERE USED 
DECREASING THE FOCAL LENGTH CORRESPONDS TO USING A 
WIDE ANGLE LENS 

VIEWING ANGLES MEASURED VERTICALLY AND HORIZONTALLY 
F F CM CFNTEP ARE APPROXIMATELY 14 DEGRFES FOR A PATIO 
OF 1/4 AND 18.5 DEGREES FOR A RATIO OF 1/3 



CALL ROT AT N( ROTMAT, ALPHA, BETA, GAMMA) 

DC 1 1=1,3 

1 ROTMAT (4, I )=OBJMV( I)-VIEWMV( I ) 

A= -PS I 

B=-THFTA 
C = -P H I 

CALL FXRTAT (OR IMAT ,A, B,C ) 

CALL PROP ( ROTMAT, OR I MAT, 4, 4, 4, HMATRX , 4,4,4 ) 

FCTR l=-SCLE/FOCUS 

HMATRX ( 1,4) =HMATRX ( 1 , 1 )*FCTR1 

HMATRX ( 2 ,4 ) =HMATRX ( 2 , 1 ) *FC TR 1 

HMATRX ( 3,4 ) = HMATRX ( 3, 1 ) *FCTR1 

HMATRX (4,4 )=(HMATRX( 4, 1 ) -FOCUS ) *FCTR1 

IF( YOFF.EO.'*. ) GO TO 3 

FCTR? = YOFF/SCL E 

DC 2 1=1,4 

2 HMATRX ( I , ? ) =HM A TR X ( I , 2 ) +FC. TR 2*HMA T R X ( 1,4) 

3 CONTINUE 

IF(ZOFF.FC. ) GO TO 5 
FCTR 3= ZOFF /SCLE 
nr 4 i=i,4 

4 HM ATP X ( I , 3 ) = HMATR X ( I , 3 ) +F C T *3* HM AT RX ( 1,4) 
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5 CONTINUE 

CALL POTATN(ORIMAT,PSI,THETA,PHI ) 

DO 6, 1*1, 3 

TEMPI I >* V I EWMVI I ) -OBJMV I I I 
TFMPFI I ) =ORI MAT ( 1 » I )* FOCUS ♦TEMPI I ) 

TEMPYI I>*ORIMAT(2, I )♦ TEMP 1 1 ) 

6 TFMPZI I)*ORIMAT(3 t n+TEMPl I) 

A*-ALPHA 

B=-BFTA 

C*-GAMMA 

CALL POTATN( RQTMAT , A , B ,C ) 

DO 7 1*1*12 

7 OPSPOSI I )*C.O 
DC 8 J*1 * 3 
JJ* J+3 
JJJ.J+6 

J4 J* J+9 
DO 8 1*1,3 

OBSPOSI JJI-OBSPOSI JJ ) ♦TEMPYI II*ROTMAT( I, J) 
OBSPOSIJJJ)*OBSPOS< JJJI+TEMPZI I)*ROTMAT( I, J) 
OBSPOS ( J4J )*OBSPOS( J4JI ♦TEMPF ( f|*ROTMAT( I , J) 

8 OBSPOS ( J I * OBSPOSI J ) +TFMP ( I )*ROTMAT( I,J) 
RETURN 

END 



SUBROUTINE FXRT AT ( RMATRX , A, B, C ) 

DIMENSION PMATRX(4.4> 

C THIS SUBROUTINE CALCULATES THE 4 X A ROTATION 

C MATRIX FOR EULER ANGLE ROTATION 

C CALCULATE DIRECTIONAL COSINES 

C AND PLACE IN ROTATION MATRIX 

TPI*3. 1416/180. 

ALPHA*TPI*A 
BET A=T PI*B 
GAMMA*TPI*C 
SALPHA*SIN( ALPHA! 

CALPHA*COS IALPHA) 

SBETA=SIN1 BETA ) 

CBET A*COS( BETA ) 

SGAMMA*S IN (GAMMA ) 

CGAMMA*COS(GAMMAI 

C CALCULATE DIRECTIONAL COSINES 

C AND PLACE IN ROTATION MATRIX 

TEMP1*CGAMMA*S ALPHA 
TEMP2*SGAMMA*C ALPHA 
TEMP3*SGAMMA*S ALPHA 
TEMP4*CGAMMA*C ALPHA 
RM ATRX ( 1 , 1 ) = CBETA*C ALPHA 
RMATRX I 1,2 )=TEMP1+TEMP2*SBETA 
RMATRX 1 1,3 l = TE MP3- TEMP4*SBETA 
RMATRX (2,1 )*-C BET A*S ALPHA 
RMATRX(2,2)*TE MP4-TEMP3*SBET A 
RMATRX (2,3 )=T EMP2+TEMP l*SBETA 
RMATRX (3,1 ) *S BET A 
RMATRX I 3, 2 ) =-CBETA*SGAMMA 
RMATRX (3,3 )»CGAMMA*CBETA 
DC 1 1*1,3 
RMATR X ( I » 4 )*0. 

1 RM ATRX ( 4, 1 1 = 3 . 

RMATRX (4,4 )«1 . 

RETURN 

END 



SUBROUTINE ROT ATN ( RMATRX , A , B , C ) 

DIMENSION RM AT RX ( 4 ,4 ) 

C THIS SUBROUTINE CALCULATES THE 4X4 ROTATION MATP 

C ANGLE POTATION. 

TPI = 3. 1416/180 . 

AL PHA* TP I * A 
BETA*TP I *B 
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G A MM A= TP I * C 
SALPHA=SIN (ALPHA) 

C ALPHA = COS ( ALPHA ) 

SOET A= S I N ( BETA ) 

CHET A=CO S ( BETA ) 

SGAMMA=S IN (GAMMA ) 

CGAMMA=CCS (GAMMA) 

C CALCULATE DIRECTIONAL COSINES 

C AND PLACE IN ROTATION MATRIX 

Tf MP1=CGAMMA*S ALPHA 
TFMP2=SGAMMA rt C ALPHA 
TFMP3=SGAMMA*S ALPHA 
T EMPA=CG AM MA*C ALPHA 
RMATRX ( 1 , 1 >=CBETA*C ALPHA 
RMATRX (1 ,2 )=CBETA*SALPHA 
KM ATP X ( 1 ,3 )=-SBFTA 
RMATRX (2, 1 )=TFMP2*SBFTA-TEMPl 
RMATRX (2,2 ) =T E MP3’’- S BE T A+T EMP A 
RMATRX ( 2,3 ) = SG AMM A*CBE TA 
RMATRX (3, 1 )=S8ETA*TEMPA+TEMP3 
RMATRX ( 3,2 ) =SBETA*TEMP1-TEMP2 
RMATRX (3, 3 )=C8ETA*C GAMMA 
PQ I 1=1,3 
RMATRX ( I ,a )=C . 

1 RMATRX ( A, I ) = 0. 

RM AT PX (A, A )=1 . 

RETURN 

ENC 



SUBROUTINE PROD ( A , B , N , M , L , C , ND , MD , LD ) 
DIMENSION A(ND ,MD ) ,B( MD,LD) ,C( ND ,LD) 

DO 1 I = 1 , N D 
DO 1 J=1 ,LD 
1 C( I. J)=C. 

DO 151 1=1, N 
DO 151 J=1 ,L 
DO 151 K = l , M 

151 C(I,J> = C ( I , J ) + A(I,K)*B(K,J) 

RETURN 
EE D 



SUBROUTINE OE S CR B ( ARR AY , I ARR AY , FNORML , LS T F AC , N , SU BR 1 , 
1XSTART ,YST ART , XEND , YE ND , JD SPL Y , LS T BFC , NPNT R ) 
CCMMON/SDFB/ ALPHA, BET A, GAMMA, PS I, THETA, PHI ,03JMV( 3) , 
1VI E WMV ( 3 ) , FOCUS, YGFF, ZOFF , SCLE , HM ATRX ( A, A ) ,OBSPOS( 12 ) 
DIMENSION ARRAY(N, 13) . IARRAY(2,N, 13) ,LSTFAC( 1 ) 
DIMFNSION XST ART ( 1 ) , Y START ( 1 ) , XEND ( 1 ) , YEND ( 1 ) 
DIMENSION IWRKNR( 20) , JGSET< 23 I , INTLVP ( 20 ) 

DIMENSION TEMP IN ( 9 ) , FNORML ( N , 3 ) ,LSTBFC( 1 ) 

D I MENS ION AA<3 ) , B8(3 ) , CC ( 3 J,PP< 3) 

DIMENSION AAA (3) ,3BB( 3) , A AAE ( 3 ) , BB BE ( 3 ) , T S TPNT ( A ) 
INTEGER CURSEG.TPNTR, POINT, TEMP 

N IS THE NUMBER OF DIFFERENT POINTS EXPECTED 
SU BR 1 IS THE SUBROUTINE THAT WILL ENTER DATA 
CALLING NAME OF SUBP.l MUST BE DECLARED EXTERNAL 
IN THE MAIN CALLING PROGRAM IN ORDER THAT ITS 
NAME WILL BE RECOGNIZED AS A SUBROUTINE 
DATA IS ENTFRED IN THE FIRST THRFE LOCATIONS 
OF TFMPIN 

SUBR1 SHOULC READ IN NUMBER OF °0 1 NT S TO THE FACE 
THIS SHOULD BE FOLLOWEO RY THF THREE COORDINATES 
OF EACH POINT, ONF POINT AT A TIME, INTO ARRAY 
TEMPIN 

IF DESIRED, RE ADC R MAY BE USED TO ENTER DATA 
FORMAT EXPECTED IS 1110 FOR THE NUMBER OF POINTS 
OF THAT FACE TO FOLLOW 

SUBSEQUENT CARDS WILL USE THE FORMAT 3F2D.6 FOR 
COORDINATES U,V,W 
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TEISNS!A0»B0»A1»B1 , A2 , B2 , CONST > = AO*Bl ♦ A2 * BO- A0*B2- A 1* 
1BC+CONST 

NPNTR=LPNTR=I F PNT R=LS PNTR= J DS PLY = J PNTR=L P E ST R=0 
ALPHA=BETA=GAMMA=PSI=THETA=PHI =C . 

VI EWMV 11 ) = VI E WMV ( 2 )=VIEWMV! 3 » =0 . 

OB JMV( 2 ) =OBJMV ( 3 ) =0 . 

OB JM V ( 1 ) =- 4 1 • 

FCCUS= I • 5 

ZOFF=YOFF=C . 

SCLE=C .5 
DC 1 1=1, N 

ARRAY! 1,7) = 3. 

1 ARRAY! 1 , 1 3 ) = 0 . 

RETURN 



SUBROUTINE ERASF 
DC 7 1=1, N 

7 ARRAY! I • 13 » =0. 

IFiLPFSTR. EQ . 7 ) GO TO 8 
DC 6 1=1 ,LPNTR 

6 I ARRAY! ?, I ,9) = IABS< I ARRAY (2, I ,9) ) 
RETURN 

8 CCNTINUF 
CALL LINES 
RETURN 



SUBROUTINE FACES 
NPT= 1 

CALL SUBR1 (NPT ,TEMPIN) 

IFPNTR=IFPNTR+1 

I ARRAY (1, I FPNT R » 8 ) =NP T 

I ARRAY !2, IFPNTR,8)=LSPNTR + 1 

DO 13 IN=1 ,NPT 

CALL SUBR1 (0 ,TEMP IN) 

21 DO 22 I = 1 * NPNTR 

I F ! TEMP IN ( 1).EQ. ARRAY! 1 , 1 ) . AND . TEMP I N ! 2 ) . E Q. ARR A Y ( 1,2) 
1 .AND. TEMPIN(3> .EQ. ARRAY! 1,3) ) GO TO 14 

22 CONTINUE 
NPNT R=NPNTR+ 1 
NEW=NPNTP 

DO 11 1=1,3 

11 ARRAYINPNTR, I )=TEMPIN( I ) 

12 LSPNTR=LSPNTR+1 

13 LSTFAC!LSPNTR)=NEW 
RETURN 

14 NEW= I 

GO TO 12 



SUBROUTINE LINES 
DO 4C 1 = 1, IF PNTR 
I R = 1 

NB R= I ARR AY ! 1 , 1,8) 

TPNTR=IARRAY(2,I ,8) 

LSTRT=TPNTP 

LPNT=LSTFAC(TPNTR) 

31 TPNTR=TPNTR+ 1 
NPNT=LSTFAC(TPNTR ) 

32 I R=I R+ 1 

IF(NPNT.LT.LPNT)GO TO 38 
I B=1 

LLC*=LPNT 
LH IGH=NPNT 
39 CONTINUE 

DO 16 J=1 , LPNTR 

IF! I ARRAY! 1 , J , 9 ) . EQ . LLOW. AND . I ARR AY ( 2 , J, 9 ) . EQ. LHIGH) GO 
1T0 37 
16 CONTINUE 

LPNTR=LPNTR+1 
I F (LRESTR . NE .0 )G0 TO 33 
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IARRAY( IB, LPNTR , 111=1 

3 3 I ARRAY ( 1 , LPNTR ,9) = LLOW 

I ARP AY (2 ,L PNTR,9 )=LHIGH 

34 LPNT=NPNT 

IF ( IF-NBR) 31,36,4'' 

36 NPNT=LSTFAC( LSTRT ) 

GO TO 32 

3 7 I ARRAY (IB, J, 11 )= I 
GO TO 34 
38 LLOW=NPNT 
LHIGH=LPNT 
I B = 2 

GO TO 39 
4 n CONTINUE 
LR ESTR=C 
RETURN 



SUBROUTINE CCVCVX 

THE FIRST POINT ENTERED MUST RE A CCRNFR POINT 
I.E.« THE LAST, FIRST, AND SECOND POINTS MUST 
NOT BE COLLI NE AR 
DC 49 1=1, IFPNTR 
NBR= IARRAY (l , 1,8) 

TPNTR= I ARP A y ( 2 » l ,8 ) 

PC INT=LSTFAC(TPNTR+NBR-1 > 

DO 41 J=l, 3 

41 TEMPIN(J)=ARRAY(POINT , J ) 

POINT=LSTFAC(TPNTRI 

DC 42 J = 1 , 3 

42 TFMPIN(J+3)=ARRAY(POINT,J) 

POINT=LSTFAC(T PNTR + 1 ) 

DC 43 J=1 , 3 

43 TEMPINI J+6 )=ARRAY( POINT, J ) 

A= SQRT ( (TEMP IN < 1 )-TEMPIN( 4) ) ** 2 + ( T EMP I N( 2 ) - TEMP I N ( 5 ) ) 
1**2+(TEMPIN(3)-TEMPIN(6) )**2I 
B=SORT( (TEMPIN(7)-TEMPIN( 4 ) ) ** 2+ ( T EMP I N ( 8!-TEMPIN(5) ) 
1**2+(TEMPIM9) -TEMPINI6) )**2 ) 

AB I = 1 • /( A* B ) 

FNOPML (1,1 )=AB I *( (TEMPIN(2)-TEMPIN(5) )*( TEMPIN(9)~ 

1 T E MP I N ( 6 ) )-(TEMPIN(3)-TEMPIN(6) ) * ( TEMP IN ( 8 )- 
2TE MR IN ( 5 ) ) ) 

FNORML (I»2)=ABI*( ( TEMP IN ( 3 )- TEMP IN ( 6) )*(TEMPIN<7)- 
1TE MP I N ( 4 ) ) — (TEMPINtl )-TEMPIN(4) ) * ( T EMP IN ( 9 >- 
2TEMP IN ( 6 ) ) ) 

FNORML (I .3 )=A8I*( ( TEMP IN ( 1 ) -T EMP I N ( 4 ) ) * ( TE MP I N ( 8 ) - 
1TFMP IN ( 5 I )-(TEMPIN(2)-TEMPIN(5) )*(TEMPIN(7 )- 
2TFMP IN ( 4 ) ) ) 

49 CONTINUE 

DO 47 1=1, LPNTR 

IEACE1 = IABS( IARRAY( 1, I, 11 ) ) 

IPACE2=IARRAY( 2, 1,11) 

LLOW= I ARRAY ( 1 , 1,9) 

L H IGH= I ARR AY ( 2 , 1,9) 

DO 44 J= 1 , 3 
A A (J )= FNORML ( IFACE1,J) 

44 PE (J )= FNORML ( IFACE2,J ) 

CALL CROSS (AA, BB,CC) 

DO 45 J=l, 3 

45 AA(J)=ARRAY(LHIGH, J) -ARRAY (L LOW, J) 

SCALAR =0. 

DC 46 J=l, 3 

46 SCALAR=AA(J)*CC(J l+SCALAR 
IF (SCALAR. GE. 3, )G0 TO 47 

I ARRAY ( 1 , 1,11 ) = - I F AC E 1 
I A RP AY ( 1 , L LOW , 7 ) = l 
IARRAY( 1,LHIGH,7)=1 

47 CONTINUE 
RETURN 
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SUBROUTINE HDNSRF 
JPNTR=C‘ 

DO 54 1=1 , IFPNTR 
NBR=IABS(I ARRAY(1, 1,8) ) 

TPNTR= IARR AY ( 2 , I ,8) 

PriNT=LSTFAC(T PNT R+NBR-l ) 

DC 51 J*l,2 

51 TFMPIN(J)=ARR AY (POINT, J+A) 

POINT = LSTFAC(T PNTR ) 

DO 52 J=3» A 

52 TEMPIN(J)= ARRAY (POINT, J+2) 

POINT=LSTFAC(TPNTR+l) 

DO 53 J=5 , 6 

53 TEMP IN (J) = ARRAY(POINT ,J) 

DEPTHN=(TEMPIN(1 )-TEMPIN(3) )*(TEMP IN ( 6 J-TEMP IN( A) )- 
1( TEMP INI 5) -TEMPI N( 3) ) * ( TEMP I N ( 2 )-T EMP IN( A ) ) 

I F ( DEPTHN ♦ GE • 0 • ) GO TO 55 
IARR AY (1,1 »3)=NBR 
5 A CONTINUE 

DO 58 1= 1 , LPNTR 
I F LAG1 =C 

TEMP=IABS( IARRAY( 1,1,9) ) 

IF ACE1 = I ARR AY ( 1,1,11) 

IF (I FACE1.GT .0 )GO TO 57 
I F AC E 1=- I F ACE 1 
IFLAG1=1 

57 I F ACE2 = I ARRAY (2,1,11) 

IF ( I ARRAY! 1, I FAC El, 8) .L T.O )I FLAG1= IFLAG1+ 1 
IF ( I ARRAY! 1, I FACE2.8) .LT .0 ) IFLAG1= IFLAG1 + 1 
IF(IFLAG1.GE.2)G0 TO 56 
I ARR AY ( 1 , I , 9 ) = TEMP 

58 CONTINUE 
RETURN 

55 IARR AY (1,1 ,8)=-NBR 
GO TO 5A 

56 I ARRAY (1,1 ,9)=-TEMP 
GO TO 58 



SUBROUTINE CMPUT 

C EXAMINE SEGMENTS ORIGINATING AT SPECIFIED NODE 

JDSPLY=0 

DO 1C A ILK = 1, LPNTR 
LLOW=I ARRAY ( 1 , ILK , 9) 

IF (LLOW.LT.l)GO TO 104 
XL OW=ARR AY(LL0W»5) 

YLCW= ARRAY (LL0W,6 ) 

IF (IARR AY (2, LLOW ,13)»NE»0) GO TO 1C5 
CALL VRTNTR 
105 CONTINUE 

C SEARCH FIRST NODE OF ALL SEGMENTS 

DO 1 1 A IL=ILK, LPNTR 

IF (IARR AY ( 1, IL ,9 ) .NE»LLOW)GO TO 114 
LH IGH= I ARR AY ( 2 » I L , 9 ) 

IF(LHIGH.LT.G)GO TO 114 
C ENTER NATURE AT INITIAL VERTEX 

112 N6 R= I A RR AY ( 1 , L LOW ,13) 

TPNTR= IARR AY (2, LLOW, 13) 

I WRKNR ( 1 ) = NBR 

IF (NBR »E0* 0 ) GO TO 301 
IDRAW=C 

107 IENO=NRR-H 

DO 111 J=2 , 1 END 

ill IWRKNR(J) = LSTBFC(T PNTR+J-2 ) 

113 CONTINUE 

C FIND DIRECTION NUMBERS 

XHIGH=ARRAY(LHIGH,5) 

YHIGH= ARRAY! LH IGH , 6) 
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A A L= X F IGH-XLOW 
BBL=VH ICH-YLGW 

C FIND LOSING INTERSECTIONS 

CUPSEG=IL 
CALL LNTRSC 

IF ( I NR SC T . EQ • 0 ) GO TO 103 

C SEARCH FOR INTERSECTION AT INITIAL VERTEX 

If CUNT=INR SC T 
I J K=L PNTR + 1 
NT EM P = C 

01 1"9 1=1 * I NR SC T 

I JK= I JK+ 1 

IF(IARRAY(1,IJK,9).LT.0)G0 TO 1’9 

IF ( XLOW.EQ.F NURML (1,1) . AND. YLOW . EQ . FNORML ( 1,2) )G0 TO 
Ilf 9 

C INTERSECTION OCCURS AT INITIAL VERTEX 

NTFMP=NTEMP+ 1 

INTLVR (NTEMP )= I ARRAY) 1, I JK, 9) 

I ARRAY (1 , I JK, 9 )=- I ARRAY (1 , I JK , 9 ) 

109 CONTINUE 

IF(NTFMP.FQ.C )GC TC 151 
XN FAR = XLOW + . 00 C 1 * A AL 
YNEAR=YLCW+.C0°1*BBL 

C COMPUTF DEPTH OF POINT NEAR VERTEX 

TEMPIN(1)=.3C1*ARRAY(LHI GH , 1 ) - APR. AY ( L LOW , 1 )*.999 
TFMP IN (2 )= .DC 1*ARRAY( LHIGH, 2) -ARRAY ( LLOW , 2 )*.999 
TEMP IN (3 ) = .001*ARRAY (LHIGH, 3 ) -ARR AY ( L LOW , 3 )*.999 
OPTHNR=rFPTH(TEMPIN(l ) , TE MP I N ( 2 ) , T FMP I N ( 3 ) ) 

CALL TSTNNP 

IF (IDRAW.E0.1. AND. I WRKNR ( 1 ) , NE .f ) GO TO 3>* 2 
I T ( IDP AW.EO.O. AND. IWRKNR( l).EQ.:)GO TO 3 r '3 
GO TO 151 

331 JCSPLY=JDSPLY+1 
XSTAPT < JDSPLY ) =XLOW 
YSTART ( JDS PLY )=YLOW 
I ORA W= 1 

GL TO 113 

332 JCSPLY=JDS PLY-1 
I PRAW=P 

GC TO 151 

3C3 JDSPLY=JDSPLY+1 

XSTARTI JDSPLY) =XLOW 
YSTART (JDSPLY) =YLOW 
I DRAW= 1 

151 CONTINUE 

IF ( ICCUNT. FQ.O ) GO TO ID 3 
NTEMP=C 
I JK=LPNTP+ 1 
DC 152 1 = 1 , INRSCT 
I JK=I JK+1 

I JKTST = I AP R AY ( 1,1 JK, 9) 

IF ( I JKTST. LT.o ) GO TO 152 

IF(XHIGH.EG.FNORML(I , 1 ). AND. YHI GH. EQ . FNORML ( I , 2 ) ) GO 
1 TO 153 

152 CONTI NUF 
I F LAG=G 

I F ( I COUNT • LE.NTEMP)GO TO 201 
GC TO 154 

153 NTEMP=NTFMP+ 1 
INTLVP (NTEMP)= IJKTST 

I ARRAY (1 , I JK,9)=-IJKTST 
GO TO 152 

154 CONTINUE 

I JK=LP NTR + 1 
RLNGTH= 1 . E 6 
DC 155 1=1, INRSCT 
I JK=I JK+1 

I JKTST = I AR RAY ( 1, I JK, 9 ) 

IF ( I JKTST. LT.O )GO TO 155 
AL SEG=FNPR ML ( I ,l)-XLOW 
BLSEG= FNORML) I ,2) -YLOW 
TLNGTH=ABS(ALSEG)+ABS(BLSFG) 
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I r ( TL NGTH-RLNG TH ) 156,157,155 

156 RLNGTH=TLNGTH 
I SFGJ=I JKTST 
NX T I NT = I JK 
MULT PL = 1 

N I = I 

GO TU 155 

157 IF (IFLAG.EQ.O) MULT PL=MULTPL+ 1 
155 CCNTINUF 

IFACE1 = IABS( I ARRAY! 1, ISEGJ, 11) ) 

IFACE2=IARRAY(2, ISEGJ, 111 
IF!MULTPL.GT.l )GO TO 162 

165 CONTINUE 
ITSTNP=IWRKNR( 1) 

IF ( I ARR AY ( 1, IF AC El, 8) .LT.OJGO TO 160 
CALL DELETE! I WRKNR , I FACE1 > 

IMITSTNP.NE. IWRKNRd ))GO TO 159 
IWPKNR! 1 )= 1WRKNR! 1) + 1 
IWRKNR(ITSTNR*2)=IFACE1 
CALL DELETE! I WRKNR , I F ACE2 ) 

GO TO 161 

159 IFUARRAY! 1, IFACE2.8) .LT.OGO TO 161 
I WRKNR ( ITSTNR+1)=IFACE2 

I WRKNR ! 1 )= I WRKNR ( 1 ) + 1 
GC TO 161 

160 CALL DELETE! I WRKNR, IFACE2) 

IF! ITSTNR.NE. IWRKNR(1))G0 TO 161 
I WRKNR ( 1 )= I WRK NR ( 1 ) *1 
I WRKNR! ITSTNR*2)=IFACE2 

161 IARRAY (1,NXT INT,9)=-I SEGJ 

IFdDRAW. EQ.l. AND. IWRKNRd). NE.dGO TO 3C4 
IF ( I DRAW .EO.O • AND. I WRKNR! 1 ) • EQ. 0 ) GO TO 305 
168 I C CUNT = I COUNT- 1 

1F(I COUNT. LE .NTEMP ) GO TO 201 
MULT PL=MUL TPL- 1 
IF! MULTPL. LE .0 ) I FLAG=0 
GO TO 154 

394 XEND! JDSPLY)=FNORML (Nl , 1) 

_YEND(JDSPLY)=FNORML!NI ,2) 

CALL WINDOW 
I DRAW=0 
GO TO 168 

305 JDSPLY=JDSPLY+1 

XSTART ( JDSPLY )=FNORML !NI, 1 ) 

Y START! JDSPLY) =FNORML(Nl ,2) 

IDRAW= 1 
GC TO 168 

162 CONTINUE 

C MULTIPLE INTERSECTIONS 

I RPT=1 

I SCTND=I ARRAY ( 1 , I SEGJ , 9 ) 

X I NSCT=FNORML ( N I » 1 ) 

YlNSCT=FNORML(NI ,2 ) 

163 XSEGJ= ARRAY! ISCTND,5) 

YS EGJ= ARRAY ( ISCTND,6) 

IFIXSEGJ.EO.XI NSCT .AND.YSEGJ.EQ.YINSCTJGO TO 166 
IF(IRPT.EQ.2)G0 TO 165 

164 ISCTND=IABS( I ARRAY (2, I SEGJ, 9)) 

I RPT=2 

GO TO 163 

166 I F LAG* 1 
XLEFT=XINSCT-.001*AAL 
XR IGHT=XINSCT+.C01*AAL 
YLEFT=YINSCT-.0C1*BBL 
YR IGHT=YINSCT+.C01*BBL 

167 IF (IRPT.EQ.l ) I H IGHE= I ABS ( I ARRAY ( 2 , ISEGJ, 9) ) 

IF ( IRPT.EQ.2) IHIGHE=I ABS! I ARRAY! 1, ISEGJ, 9 ) ) 

XT EST=XINSCT+. 001* (ARRAY! IHIGHE ,5) -XI NSCT ) 
YTEST=YINSCT+. 001* (ARRAY! I HIGHE,6 )-YINSCT ) 
TFMP1=XLEFT*YRIGHT-XRIGHT*YLEFT 

AL=TRISNS( XTEST, YTEST, XLEFT. YLEFT, XRIGHT,YRIGHT,TEMP1 ) 
IF(ABS!AL) .LT. l.OE-BJGO TO 170 
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IF (AL.LT.r .1G0 Tn 161 
GC TO 165 
17: CONTINUE 

ITSTNR=IWPKNR( 1 ) 

CALL DELETE! IWRKNR, IFACE1 ) 

I F C ITSTNP.NF. IWRKNR(l) ) GO TO 171 
IWRKNR ( 1 ) = ITSTNR+? 

IWPKNR ( ITSTNR+2)=IFACE1 
IWRKNP ( I TSTNR+3)=I FACF2 
GG TO 161 
1 / l CCNTINUF 

CALL DFLfcTF( I WRKNR , I F ACE2 ) 

GG TO 161 
2 ' 1 CONTINUE 

I F ( NT E MP • E G • G ) GO TC 103 
XN E AR= XH IGF 
YNEAP=YH IGF 

00 2C 3 J = 1 , 3 

V 3 TEMPIMJ )= ARR AY(LH IGH, J ) 

DFTHNP=ARRAY (LHIGH»4) 

CALL TSTNNP 
l ° 3 CONT INUE 

I F ( IORAW.EQ.l) GO T 0 366 
1 '6 IF ( I ARRAY! 2,LHIGH. 13) .NE.O >GO TO 2C4 

1 ARP AY ( 1 »LFIGH ,13 j = IWRKNP. ( 1 I 
I ARRAY (2 ,LHIGH ,13) =JPNTR+1 

I ENO = I WRKNR I 1) +1 
DC 2L2 J = 2 » I EN D 
JPNTP= JPNTP+ 1 
LSTBFC(JPNTR) = I WRKNR! J ) 

212 CONTINUE 

20 A IARRAY(2,IL,9)=-LHIGH 
114 CONTINUE 
l C 4 CONTINUE 
RETURN 

306 XFNP! JDSPLY)=XHIGH 
YEND! JDSPL Y) =YH I GH 
CALL WINDOW 
GO TO 106 



SUBROUTINE ALTER 
NPNTPA=NPNTR 
DC 471 I I = 1 » L PNTR 
N I RROR = 1 

LL OW= I ARP AY! 1 , 11,9) 

IF ( LLOW. I T .0 ) GO TO 471 

IF(ARPAY(LL0W,4) . GT.O . ) MI RRQR=MI RROR+ 1 
LHIGH=IARRAY(2,II,9) 

IF (ARRAY! LHIGH ,4) .GT.C. ) M I RROR=M I RROR+2 
GO TO (471 ,481,482,472) , MIRROR 
472 I ARRAY (1 , I I ,9 )=-LLCW 
GO TO 471 

481 LPCINT=LLOW 
HPCI NT =LH I GH 
GO TO 483 

482 LPOINT=LHIGH 
HPCI NT=LLOW 

433 CONTINUE 

DO 485 1=1,3 
A A ( I )=ARRAY( LPCINT , I ) 

485 BB( I )=ARPAY(HPOINT,I ) 

CALL P I E RC ( OBS PCS ( 1 ) , OBSPOS < 4 ) , OBS POS ( 7 ) , A A , BB , °P ) 

NPNTRA=NPNTRA+1 

DO 486 1=1,3 

ARRAY ( NPNT RA , I ) = PP( I ) 

436 ARRAY! NPNT R A , I +3) =HMATRX ( 4 , I ) 

FCTR=HMATPX(4, 4) 

DO 487 1=1 ,3 
1 J= I *3 

FCTR = FCTR+ ARRAY! NPNTR, I ) +HMATRX ( 1,4) 

DO 487 J = 1 ,3 
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48 7 ARRAY (NPNTRA, I J ) = ARR A Y ( NPNTR A , I J ) ♦ ARR AY ( NP NT R A , J ) * 
1HMATRX ( J , I I 
DO 4 88 1=5,6 

48 8 ARRAY (NPNTR A, I ) = ARR AY ( NPNTR A , I )/FCTR 
MIRROR=MIRRQR-l 
IARRAY (MIRROR , I I ,9)=NPNTRA 
471 CONTINUE 

IF (NPNTR A. NE.NPNTR )LRESTR=1 
RETURN 



SUBROUTINE VRTNTR 

MRPNTR=LPNTR+1 

ISTRT=MRPNTR+1 

86 NB R=C 

DO 92 I J= 1 » L PNTR 
IFAC1=IABS (IARRAY( 1, IJ, 11 ) ) 

I F AC2= I ARR AY(2»IJ,11) 

IF (I ARRAY! 1, IF AC 1 , 8 ) . L T. D . AND . I ARR AY ( 1 , I FAC2.8) .LT.C . 
10R.IFAC1.EQ. IF AC 2) 0 TO 92 
L l OWE = I AB S ( I ARRAY ( 1 , I J,9)l 
98 LHIGHE=IABS( IARRAY(2, IJ,9) ) 

Xl=ARRAY(LLOWE,5) 

X2=ARRAY(LHIGHE,5) 

XMAX=AMAX1 (XI, X2 ) 

XMI N=AMI N1 (XI, X2) 

IF(XMAX-XLOW) 92,97,87 

87 IF(XMIN.GE.XLOW)GO TO 92 

88 Y1=ARRAY(LL0WE»6) 

Y2=ARRAY(LHIGHE,6) 

YMAX=AMAX 1 (Yl, Y2 ) 

IF(YMAX.LT,YLCW)GO TO 92 
TEMP1=X1*Y 2-X 2 *Y 1 
YMAX=YMAX+ 1. 

AL=TRI SNS( XLOW , YLOk , X 1 , Y 1 , X2 , Y2 , TEMP 1 I 
Ah=TRISNS( XLOW, YM AX, X1,Y1,X2,Y2, TEMPI ) 

IFUL.LT.G . . AND.AH.LT.O. .OR. AL.GT.O. . AND.AH.GT.C. ) GO 
1TO 92 

C MARK POLYGONS FOR INTERCEPT 

I E FAC 1 = I AB S( IARRAY (1, 1 J, 11 1 I 
I E FAC2 = I ARRAY! 2,1 J, 11) 

IF(I ARRAY! 1, IEFAC1,8) .LT.OIGO TO 90 
DO 89 IK=ISTRT,MRPNTR 

89 I F ( IAPRAY( 1, IK, 11 ) ,EQ. IEFACDGO TO 95 
MRPNTR=MPPNTR+1 

IARRAY( 1,MRPNTR,11)=IEFAC1 
IARRAY (2, MRPNTR,11)=1 

90 I F ( I ARRAY (l,IEFAC2,8).LT.O) GO TO 92 
DO 91 IK=ISTRT,MRPNTR 

91 I F ( IARRAY( 1, IK, 11 ) . EQ . I EF AC2 ) GO TO 96 
MRPNTR=MRP NTR+ 1 
IARRAY(1,MRPNTR,11)=IEFAC2 
IARRAY(2,MRPNTR,11)=1 

92 CONTINUE 

IARRAY (2, L LOW, 13) = JPNTR + 1 
DO 94 I J= 1ST RT , MRPNT R 

I F ( I ARRAY (2»IJ»ll)-IARRAY(2»IJ»ll)/2*2.EQ.C)GO TO 94 
I F ACE= IARR AY ( 1 , I J , 11) 

DO 93 J = 1 ,3 

93 TEMP IN (J)=ARRAY(LLOW,J) 

CALL PLNLIN 
DVRTEX=APR AY ( LLCW , 4 ) 

IF (ABS(OVRTEX) .LT.O. 1 ) GO TO 99 
PPX= DE PTH ( PP ( 1 ),PP(2) ,PP( 3) ) 

IF (ABS(PPX-DVRTEX) .LT..C1 )GO TO 94 
IF (PPX.LT.DVRTEX.OR.PPX.GT.O. )GO TP 94 
C ENTER SET OF BLOCKING FACES 

101 JPNTR=JPNTR+1 

LSTBFC (JPNTR ) =1 ARRAY! 1,IJ,11) 

NBR=NBR+1 

94 CO-NTINUE 

I ARR AY ( 1 , L LOW , 13)=NBR 
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RETURN 

°5 I ARRAY! 2 , 1 K, 11 ) =1 ARRAY (2 , IK, 1 1 ) +1 

GC TO 9f 

9 6 I APR AY (2 t I K , 1 1 > = I APR AY (2, IK, 11 > +1 
GO TO 9? 

99 Y=APRAY(LLCW»2 )-08SP0S(2 I 
IP <A6S(Y) . IT.. 1 ) GO TO ICC 

IT (Y.GT.C . .AND .PP ( 2) . LTV.'-. .OR. Y. LT. A. . AND. PP ( 2 ) . G F .<* . ) 
IGC TO 94 

IT (ABS(Y-PP( 2) > .LT. . 1 I GO TO 94 

GC TO K 1 

ICO 7 = AR R A Y ( LL CW » 3 >-OBSPOS(3) 

IF ( A 0 S ( Z I . LT. . 1 ) GO TO 94 

IF IZ.GT.C. .AND.PP(3).lT. r '..OR.Z.LT. 3..AND.PP< 3I.GT.'. » 

IGC TO 94 

IF(ABS(Z-PP(3) I.LT..1IGO TO 94 
GC TO If 1 

97 IF (XMAX. NE.XM INIGO TO 88 

ARRAY(LLOWE» 5) = ARRAY( LLOWE,5)-. r )OCl 
ARRAY ( LH IGHE , 5 I = ARRAY ( LHIGHE, 5 I +.00 30 1 
NR PNTR = LPNTR+1 
GC’ TO 86 



SUBROUTINE TSTNNP 

TEST POINT NEAR TO KNOWN POINT 

G IS THE SET OF ON VIEW FACES OF WHICH THE NODE 
BEING TESTED IS A MEMBER 

J IS THE SET OF ON VIEW FACES BELONGING TO THE 
INTERSECTING SEGMENTS 

FIND S FT OF FACES WHICH MAKE UP J AND G 
JGSFT ( 1 1 =f 

115 I SEGJ= INTL VR( NTEMP ) 

I FAC El = I ABS( I ARRAY ( 1, IS EG J, 11 I I 
IFACE2=IARPAY(2,I SFGJ til) 

IFUARRAYI 1, IFACEi,8) .LT.CIGO TO 113 
CALL MERGE ( JGSET, IFACE1 I 

113 IF ( IARRAYI 1 , IFACE2 ,8) . LT. 2 ) GO TO 114 
CALL MERGE (JGSFT, IFACE2) 

114 NTEMP=NTFMP-1 
IF(NTFMP.GT.O) GO TO 115 
I END=J GSFT (1 ) + l 
DO 117 l T = 2 » I END 
I FACE= JGSET ( IT I 
NSEGS= I ARR AY ( 1 ,IFACE,8) 

TPNTR= IARRAY (2 ,IFACE,8) 

C TEST NEAR POINT WITH RESPECT TO SETS J AND G 

C SF ARCH FACE I FACE FOR INTERSECTION 

121 LLOWE = LSTr AC( TPNTR + NSFGS-l I 
LH IGHE = L ST FAC ( TPNTR I 

I C ROSS=C 

DO 122 IK=1,NSEGS 
X1=APRAY (LL()WE,5 I 
X2=ARRAY(LHIGHE,5> 

XM AX=AMA XI (XI, X2) 

XMIN = AMIN1 ( X 1 , X 2 I 
IF ( XMA X-XNEAR I 122,123,124 
124 IFIXMIN.GE .XNEAR IGO TO 122 
126 Y1 =ARRAY (LL0WE,6) 

Y2=ARP AY(LHIGHE,6) 

YMAX=AMAX 1 (Y1.Y2) 

IF (YMAX.LT .YNEAP )G0 TO 122 

TEMP1=X1*Y2-X2*Y1 

YMAX=Y MAX+ 1 

AL = TPI SNS( XNEAR,YNEAR,X1 , Y 1 , X2 ,Y2 , TEMPI I 
AF=TR ISNS(XNEAR,YMAX,X1,Y1,X2,Y2, TEMPI) 

IF(AL.LT .C ..AND.AH.GT .C..OR.AL.GT.O. . AND . AH. LT .0 . I 
1 ICRCSS = ICR0SS+1 

L L OWE = LH IGHE 
LHIGHF=LSTFAC(TPNTR+IK ) 

122 CONTINUE 
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GC TO 116 

12 3 IF (XRAX.NE .XMINIGO TO 126 

ARRAY! LLOWE, 5) = ARR AY ( L LOWE, 5) -.00001 
ARRAY(LHIGHE,5 ) = ARR AY ( L H I GHE , 5 I + .00001 
GC TO 121 

116 IF( ICR OSS- ICRU SS/2 + 2.NE.C) GO TO 118 
CALL DELETE! IWRKNR, IFACEI 

GO TO 12C 

118 CONTINUE 

C POINT LIES INSIDE POLYGON-SEARCH SET 

I END=I WRKNR! I ) +1 
DO 1 19, IK=2, IEND 

IF! IFACE.EC. IWRKNR! IK) I GO TO 117 

119 CONTINUE 
CALL PLNLIN 

nPTHPP=DEPTH! PP( 1 ) , PP < 2 I ♦ PP( 3 ) I 
IF (DPTHPP. LT. DPTHNR) GO TO 117 
IWRKNP < IWRKNR ( 1 ) + 2 ) = I FACE 
IWRKNR ( 11= IWRKNR! 1 )+l 
12 T I COUNT* I COUNT- 1 

117 CCNT INUE 
RETURN 



slrroutine LNTPSC 

C THIS SUBROUTINE CALCULATES THE INTERSECTION OF ALL 

C SEGMENTS WITH A GIVEN SEGMENT IN TH C PICTURE RLAK r 

I XPKTR=l PNTR + 1 
lOVRLP = INKSrr=JGSET(l)=‘ 

I FA! FI I APS! I ARRAY! 1 , CU n SlG , 111) 

I f ACF? -I ARRAv ( ?, CURS EG, 1 1 ) 

I F ( A B $ ( A A L ) . I T . . , ’ j 1 ) GU TO 6< 

CENT SL = PBL /AAL 
61 TRMP2= VLOW-CRNTSL XLOW 

TC RP?= XLOW*YHI GH- VHlf>h*VLUW 
X 1 =ARR AY ( l LOW, 1 ) 

Yl =AFRAY(L LOW, 2) 

Z1 =ARP AY (l LOW, 3) 

X?=APR AV(LHIGH, 1 ) 

V 2=ARE AY ( L H I GH ,21 
/2=APR AY(LhIGH, 3) 

TF MP1=X1*Y2-X2*Y1 
TEMP5=Y1*72-Y2*71 
TER P6= 7 1 *X 2- 7 2 *X 1 
nr 702 1=1,1 
A A A ( I ) =ARR AY ( L LOW , I ) 

7*2 PLF! I*=ARP AY !l H IGH, I) 

DC 67 IEXAR=1 , LPNTR 

IF AC 1= IABS ( I ARRAY! 1 , I EXAM, 11 H 

IT AC2= IARR AY ( ? , I FX AM, 1 1 » 

IF ( I FAC1.FQ. IF ACF I .OR. I FAC 2. EO. IFACEI .Of . I FAC 1 .2 0. 

1 IF AC E2 .OR. IF AC 2. EO. IF ACF 2. OR. IF AC 1 .FQ. K AC 2. UR. 

2IARPAY (1 , 1 F AC 1 ,3) . L T . r .AND. I ARRAY (1, IFA( 2,fi».LT. ) 

3G0 TO 67 

L L OW E = I ARS ( I ARRAY! 1, I EXAM, 9) ) 

II (ARRAY(LLOWE,M .GT.l. )G0 TO 67 
I F- IGHF = I A Li S( I ARRAY! 2, IEXAM, R) ) 

XLCF F =APR AY ( LLCWR, 5 ) 

Yl OWf = AR F A Y ( LLOWI ,6) 

XL IGFIF = A F F AY(LHIGHE,5 ) 

YF I GHF =ARF AY ( L H I GHP , 6 ) 

C TEST FOP INTI F'SFCTICN USING TRI-SENSI TEST 

AL=T RISKS! XLOW E,Y LOWE, X|. OW , YLOW , XH l GH , YU I G H, TE M P 3 I 
AH = TR I SNS ( XH I GHE , Y H I Gl IF , Xl.OW , Y LOW , XH I GH, v u I G-» , T r M P X ) 

C ARE POINTS CCI.IINEA- 5 

I N I'AB 1 =1 

I F (APS ( AL > .LT. 1 . E- 5 ) I NDAB 1 = I NDA8 1 + 1 
IT (AGS! AFi) .LT . I.F-5H K'DAP. 1 * I NO AMI ♦ 2 
GL TC (M ] ,61 3 ,o1h ,72 ) , IN0AH1 
> 1 3 I C CMC = l.l. Liu F 
iriFF=LHJGH" 

G( TO M2 
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614 I COMN= LH IGHE 
ID IFF=LLOWE 
GO TO 612 

611 I F (AL. LT.C . .AND. AH.LT.O. .OR. AL.GT.O. . AND. AH.GT .0 . ) 

1GO TO 67 

612 TEPP4=XL0WE*YHIGHE-XHIGHE*YL0WE 

AL=TR I SNS( XLOW,YLOW,XLOWEt YLOWE , XH I GHE , YH I GHE, TE MP4) 
AH=TR I SNS ( XH IGH, YH IGH , XLOWE, YLOWE , XHI GHE , YH IGHE , TEMP4 ) 
I F ( I NDAB1 . NE . 1 )GO TO 615 
I NDA B2 = 1 

IF (ABS (AL) .LT. l.E-5) INDAB2= INDAB2+1 
IF (ABS( AH) .LT. l.E-5 ) I NDAB2= I NDAB2 +2 
GO TO (615,616,617) , INDAB2 

616 H INSCT = XLOW 
VI NSCT=YLOW 
GO TO 7GI 

617 H I NSCT =X H I GH 
V I NSC T=YHI GH 
GO TO 7C 1 

ol 5 IF (AL.LT.O. .AND. AH.LT .0. .OR. AL .GT.O. . AND. AH.GT .C . ) 

1GO TO 67 

IF (INDAB l.NE.i )GO TO 620 
701 CONTINUE 

DO 703 1=1 ,3 
A A AE ( I )=ARRAY ( LLOWE, I ) 

703 BBBE(I )=ARPAY(LHIGHE,I) 

CALL PIERC(AAA,OBSPOS(10> ,BBB , AAAE ,BBBE , PP ) 

IXX=1 

704 GO TO (711, 712, 713, 67), IXX 

711 AL=TRISNS(OBSPOS( 10 > , OBSPOS ( 1 1 ) , XI , Y 1 , X2 , Y2 , TEMPI ) 

AH=T RISNS( PP( 1 ) , P P ( 2 ) , XI, Y1,X2,Y2, TEMPI) 

GO TO 714 

712 AL=TRISNS< OBSPOS ( 1 1), OBSPOS ( 12 ) , Y 1 ,Z 1 , Y2 , Z 2, TEMP5 ) 
AH=TRI SNS(PP(2),PP(3) , Y 1 , Z 1 , Y2, Z2 , TEMP 5 ) 

GO TO 714 

713 AL=TRI SNS ( OBSPOS ( 12). OBSPOS ( IT) , Z 1 , X 1 , Z2 , X2 , TEMP6 ) 
AH=TRI SNS(PP(3)»PP(1) , Z1 , X 1 , Z2 , X2 , TEMP6 > 

714 IXX=IXX+1 

IF (ABS (AL) .LT. FOCUS )G0 TO 704 

IF(AL. LT.C.. AND. AH. GT.O. .OR. AL.GT.O.. AND. AH.LT. 0. ) GO 
1T0 67 

I F ( I NDAB2 • NE . 1 )G0 TO 64 
626 AALE=XHIGHE-XLOWE 
BBLE=YHIGHE- YLOWE 
IF(ABS (AALE) .LT. .0001 )G0 TO 69 
EXAMSL=BBLE/AALE 

62 HINSCT=(TEMP2+EXAMSL*XLOWE-YLOWE) / ( EX AMSL-CRNTSL ) 

63 VINSCT=TEMP2+CRNTSL*HINSCT 

64 CONTINUE 
IXPNTR=IXPNTR+1 
INRSCT=INRSCT+1 
FNGRMLdNRSCT, i)=H INSCT 
FNCRML ( INRSCT, 2)=VINSCT 
IARRAY (1 , IXPNTR,9)=IEXAM 
IF ( I OVRLP ) 81,67.76 

620 IF ( JGS ET (l ) . EQ .0 ) GO TO 622 
JEND=JGSET (1 )+l 

DO 621 I SR=2 , JEND 
IF(ICOMN.EQ.JGSET( ISR) )G0 TO 625 

621 CONTINUE 

622 JGSET(1)=JGSET( l)+l 
JGSET( JGSET(1 )+l )=IC0MN 
INTLVRI JGSET(1 ) )=IDIFF 
GO TO 67 

625 XC=ARRAY ( I DI FF ,5 ) 

YC=ARR AY ( I DIFF.6) 

MARK=INTLVR( ISR-1 ) 

XT=ARRAY(MARK,5) 

YT=ARR AY ( M ARK , 6 ) 

AL=TRISNS(X0,Y0, X LOW, Y LOW ,XHIGH,YHIGH,TEMP3) 

AH=TRI SNS( XT,YT,XLCW,YL0W,XHIGH,YHIGH,TEHP3) 

I F ( AL • LT .C ..AND. AH.LT.O. .OR. AL.GT.O. . AND . AH. GT.C . ) GO 
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ITT 621 
Gf TC 701 

68 CP NT SL = K C C ? . 

GC TO 61 

69 EXAMSL = lf CCO. 

GO TO 62 

C OVERLAP HAS BEEN ESTABLISHED 

C CHECK FOR END POINTS OF COMMON SEGMENT 

72 IF (CRNTSL.GT.10r0. )G0 TO 77 

P IGHT=AMIN1( AMAX1 ( XLCW,XHIGH) , AMAX 1 < X L OW E , XH I GHE ) ) 
Al.EFT=AMAXl( AM INK XLOW,XHIGH) , AMI N 1 ( XLOWE , XHIGHE) ) 
IF (R IGHT-A LEFT 167,74,75 

75 I CVR LP = 1 

74 H I NSCT=P I GHT 
GO TC 63 

76 HINSCT=ALEFT 
IOVRLP=C 

GC TO 63 

C SLOPE IS VERY HIGH USE VERTICAL COORDINATES 

7 7 RIGHT= AMIN 1 ( AMAX1 ( YLOW, YHIGH) , AMAXK YLOWE, YHIGHE ) ) 
ALEE T= AMAXK AM INI ( YLOW, YHIGH) , AMIN1 (YLOWE , YHIGHE ) ) 
I F(R IGHT-A LEFT 167, 79,80 

80 ICVRLP=-1 

79 V I NSC T =P I GHT 
H I NSCT = XLC’ W 
GC TO 64 

81 VI NSCT=ALEFT 
I OVRLP=C 

GC TO 64 
67 CONTINUE 
RETURN 

jt .« 1 

SUBROUTINE WINDOW 
IX1=XSTART( JDSPLY) 

I X 2 = X END ( J DS PL Y ) 

I Y1 = YSTART( JDSPLY) 

IY2=YEND( JDSPLY) 

IF ( IX 1 .GE. 1. AND. I X2.GE. 1)G0 TO 461 
IF ( IX1.LE.-1.AND. I X2. LE.-DGO TO 461 
IF( IY1 .GE. l.AND. IY2.GE. 1 ) GO TO 461 
-IF(IY1.LE.-1.AND. IY2.LE.-UG0 TO 461 
I AGN= 1 

X=XSTART (JDSPLY) 

Y=YSTART (JDSPLY) 

I X = I X 1 
I Y = I Y1 

401 IF (IX) 411,412,413 

411 VINSCT =Y+CRNTSL*(-1.-X) 

421 IF(ABS (VINSCT) . LE . 1 . ) GO TO 42.6 

423 IF( IY)424, 46 1,425 
426 XT EMP=- 1 • 

GC TO 447 

424 HINSCT=X+(-l.-Y) /CRNTSL 
YTEMP=-1. 

422 IF (ABS(HINSCT ) .GT.l. ) GO TO 461 
XT EMP=HI NSCT 

GO TC) 45C 

425 HI NSCT=X+( l.-Y ) /CRNTSL 
YTEMP= 1. 

GO TO 422 

412 IF ( I Y) 424,432,425 
432 XT EM P= X 

YTEMP=Y 

GO TO 450 

413 VINSCT =Y+CRNTSL*( l.-X) 

IF (ABS (VINSCT ) .LE . 1 . )G0 TO 446 
GO TO 423 

446 XTEMP= 1 . 

447 YTEMP= VI NSCT 

450 GO TO (451 ,460) , I AGN 

451 X = XE ND ( J DS PL Y ) 
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nnonnnn 



Y=YENO! JDS PLY I 
I X = I X2 
I Y = I Y2 
I AGN=2 

XSTAPT (JDSPLY)=XTEMP 
YSTART ( JDS PL Y ) =YTEMP 
GO TO 4C1 

460 CONTINUE 
XEND(JDSPLY)=XTEMP 
YENO(JOSPLYI=YTEMP 
RETURN 

461 JDSPLY=JDSPLY-1 
RETURN 



SUBROUTINE PLNLIN 
NTTL=I ARRAY ( 1 , I FAC E * 8 ) 

LOC= I ARR AY ( 2 » I FACE ,8 ) 
PCINT=LSTFAC(LOC+NTTL-l) 

DO 98 J = l,3 

98 AA (J ) = APRAY( POINT, J) 

PO INT= LSTF AC ( LOC ) 

DO 99 J = 1 ,3 

99 BE(J)=ARRAY(POINT ,J) 

PC I NT= LSTF AC ( L OC + 1 ) 

DO ICO J = 1 ,3 

10O CC(J)=ARRAY(POINT, J) 

CALL PIERC ( AA, BB, CC, OB SPOS , TEM P IN , PP ) 
RETURN 



SUBROUTINE DAT STR 
WP ITF ( 6 , 10 ) 

DO 501 NPT = 1 , N 

WRITE ( 6, 50 0 ) NPT , < ARR AY < NPT , J ) , J=1 , 6 ) , ( ( I ARRAY! I, NPT, 7) 
1, 1=1,2)),! (I ARRAY! I ,NPT,J) , I = 1 ,2 ) , J=8 , 13 ) 

501 CONTINUE 

WRITE(6»20 ) 

WRITE! 6, 110) (LSTF AC! I ) , 1=1 ,LSPNTR) 

WRITE(6,20 ) 

WRITE! 6, 110) (LSTBFC! I ) , 1=1 , JPNTR) 

DO 980 J=1 , JDSPLY 

WRITE(6,990)X START! J) , YSTART ( J ), XEND! J ), YEND! J ) 

980 CONTINUE 
10 FORMAT (1H1) 

20 FGRMAT (/// ) 

110 FCRMAT(5X»5I8,5X,5I8) 

500 FORMAT! IX, 1 3, 2 X, 4F 1C. 3,2F 10 . 6, 7! 2X , 2 1 4 ) ) 

990 FORMAT (5X,2F 10.6, 10X,2F10. 6) 

RETURN 

END 



SUBROUTINE P I E RC ( P 1. P2 , P3.PL 1 , PL2 , PP ) 

D I MENS ION Pl< 3 ) , P 2 ( 3 ) ,P3< 3), PL 1(3) ,PL2< 3 ) ,PP( 3) 

THIS SUBROUTINE CALCULATES THE INTERSECTION OF A 
PLANE DETERMINED BY POINTS P1,P2,P3 AND A LINE 
WHICH CONTAINS POINTS PL1 AND PL2 . 

THE COORDINATES OF THE INTERSECTION ARE RETURNED 
THE ARRAY PP (PIERCING POINT) 

THE DIRECTION NUMBERS OF THE NORMAL TO THE PLANE 
ARE A, B, C. 

A=(P2(2)-P1( 2) )*(P3(3)-P1<3) )-(P2(3)-Pl( 3) )*(P3(2)- 
1P1 (2) ) 

B = (P2( 3 ) - P 1 ( 3 ) )*(P3(1)-P1 (1) ) - ( P2 ( 1 ) -PI ( 1 ) )*(P3(3)- 
1P1 (3) ) 

C= (P2( 1 ) -P 1 ( 1 ) )*( P3(2)-P1 (2) )-(P2(2)-Pl( 2) )*(P3( 1 )- 
IP 1 ( 1) ) 

D=-A*P1( 1 )-B*Pl(2 )-C*Pl(3) 

AL = PL2 ( 1 ) - PL 1 ( 1) 

BL = PL2 ( 2 )- PL 1 ( 2) 

CL=PL2(3)-PL1(3) 
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on 



T = - ( A* PL 1 ( 1)+B*PL1 (2) +C*PL1 (3)+D)/( A*AL+B*BL+C*CL > 
PP(1 )=AL *T+PL1(1> 

PP(2)=BL*T + PL 1 (2 ) 

PP(3)=CL*T+PL1 (3) 

RETURN 

ENC 



FUNCTION D EPTH ( X , Y » Z ) 

COMMON/SDFfi/ ALPHA, BET A, GAMMA, PS I , THETA, PHI ,OBJMV( 3) , 
IVI EWMV ( 3) , FOCUS , Y OFF , ZOFF , SC LE , HM ATRX ( 4 , A I ,OBSPOS(12) 
DE PTH=X*HMATRX II, 1 ) +Y*HMATRX( 2 , II +Z*HM ATR X ( 3 , 1 ) ♦ 

1HM ATRX (4,1 ) 

RETURN 

ENC 



SUBROUTINE DEL ETE ( L I ST , I TEM ) 
DIMENSION LIST(l) 

N= L I ST ( 1 ) 

I E ND=N ♦ 1 

DC 1 1=2,1 END 

IF (ITEM. EQ. LIST! I ) )GO TO 2 

1 CONTINUE 
RFTURN 

2 IF ( I . EQ. I F ND ) GG TO 3 
L I ST ( I ) = L I ST ( I END) 

3 L I ST ( 1 ) = N- 1 
RETURN 

END 



SUBROUTINE MERGE ( L I ST , I T EM ) 
DIMENSION IIST(1) 

N = LIST (1 ) 

I E ND=N+ 1 
DO 1 1 = 2, I END 

IF ( ITEM.EO.L IST( I ) )GO TO 2 

1 CONTINUE 

L I ST(N+2 )= ITEM 
L I ST ( 1 ) =N+ 1 

2 CONTINUE 
RETURN 
END 



SUBROUTINE R EADCR ( N, TEMPI N > 
DIMENSION TEMP IN ( 3 ) 
IF(N.EQ.C)GO TO 1 
RE AD ( 5 , 2 ) N 
RETURN 

1 READ(5»3)(TEMPIN( I), 1=1, 3) 
RETURN 

2 FORMAT (1110) 

3 FORMAT (3F2<". 6) 

END 



SUBROUTINE CROSS(A,B,C) 

DIMENSION At 3 ) ,B(3),C(3) 

THIS SUBROUTINE CALCULATES THE CROSS PRODUCT 
A X B FOR 3 DIMFNSIONAL VECTORS 
C(1)=A(2)*B(3)-A(3)*B(2) 

C ( 2 ) =A ( 3 ) * B( I ) -A ( 1 l*B(3) 

C< 3)=A< 1 )*B<2 )-A( 2 )*B< 1) 

RETURN 

END 
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subroutine label 

COMMON /SPF R/ ALPHA , BETA , GAMMA , PS I , THE T A , PHI , OBJ MV ( 3) , 

IV I EWMV (3 ) , FOCUS, V(l FT, ZOFF , SCl.F , HM ATP X ( 4, 4 ) fOBSPHSi 12) 
UP n F ( 6, 1 ) ALPHA, BETA, GAMMA ,PSI , THETA, PHI , (OBJ MV ( I) , 

11 = 1,3), ( VI E-WMV (I ) , 1 = 1 , 3) , YDF F , ZOFT , FOCUS , SCLE 
1 rr PM AT (AX , ' AL PH A = ' , 1F12.6,3X, • BETA= ',1F12.6* Q X, 

I 'GAMMA =' ,1FL2.6,/7X,'PSI=',1F12.6,8X,' T HE TA= • , 1 F 1 2 . 6 , 
? P X , ' PH I = ' , 1F12«6»/2X, • 0 B J M V ( 1) = ',1F12.6,6X, 

3'CBJMV (?)= ' , IF 12. b,6X, 'QBJMVI 3 ) = ',1F12.6,/1X, 

4 'VIEUMVI 1 ) = • , 1 F12. 6,5X, • VIEWMVI 2)=', IF 12. 6, 5X, 
F'VIFUMV(3) = ' ,1F12.6,/3X, »YO p F=», 1F12.6.5X, • Z.()FT=', 

6 IF 12. 6, 5X, ' F OC US= ' , 1 F 1 2 . 6 , 5X , • S C AL E= • , 1 F 1 2 . 6 ) 

RETURN 

ENC 



SLBRCUIINE 0RAWVP(NL,X1,Y1,X2,Y?) 

01 MENS ION X1(1),Y1(1),X2(1),Y2(1) 

01 PENSION CR AW ( 1 r ,200 ) , JXY<2"*" ) 

COLUMN DIMENSION OF DPAW AND DIMENSION OF JXY MUST 
BE GREATER THAN OR FOUAL TO TWO TIMES THE NUMBER 
OF LIMES TO BE DRAWN 

ISTFP IS THE NU M B FR OF SYMBOLS PER LINE 
ND IS THE ROW DIMENSION OF ARRAY ORAW 
I S TE P= 10 
NC = 1C 

DC 1 J = 1 , N L 
JJ=2*J 

DR AW ( 1 , J J- 1 ) =X 1 ( J ) 

DR AW ( 1 , JJ) =Y1 ( J) 

X S TE P= < X 2 ( J)- Xl( J ) ) /] STEP 
YSTEP=(Y2(J)-Y1(J) I/ISTEP 
DO 1 1=2, ISTFP 

OR AW ( I , J J- 1 ) =DRAW ( 1-1 , JJ-1 )+XSTEP 
OF AW (I , J J ) =0R AW ( I - 1 » J J ) +YST EP 

1 CONTINUF 
NLTT=NL*2 

DC 2 1=1 , NLTT 

2 J X Y ( I ) =1 

CALL V PLOT (DRAW, J XY, I STEP , ND , NL , 1 , - 1 . , 1 . , - 1 . , 1 . ) 

RE TUP N 
END 



231 



BIBLIOGRAPHY 



1. Anderson, G. B., Bertram, K. R. , Conn, R. W. , Malonquist, K. 0., 

Mi list e in, R. E., and Tokulos, S . , "Design of a Time-Sharing System 
Allowing Interactive Graphics, " Proceedings of the 23rd ACM 
National Conference , p. 1-6, 1968. 

2. Appel, A., "The Notion of Quantitative Invisibility and the Machine 
Rendering of Solids," Proceedings of the 22nd ACM National Con- 
ference , p. 387-393, 1967. 

3. Appel, A., "Some Techniques for Shading Machine Renderings of Solids, 
Proceedings of the Spring Joint Computer Conference , v. 32, p. 

37-45, 1968. 

4. Barlett, W. S., Busch, K. J., Flynn, M. L. , and Salmon, R. L. , 

"SIGHT, a Satellite Interactive Graphic Terminal," Proceedings of 
the 23rd National Conference , p. 499-509, 1968. 

5. Boehm, B. W. , "Tabular Representation of Multivariate Functions - -With 
Applications to Topographic Modeling," Proceedings of the 22nd ACM 
National Conference , p. 403-415, 1967. 

6. Brewer, S., "Data Base or Data Maze? An Exploration of Entry Points, 
Proceedings of the 23rd ACM National Conference , p. 623-630, 1968. 

7. Brian, W. J. , "A Parts Breakdown Technique Using List Structures," 
Communications of the ACM , v. 7, p. 362-365, June 1964. 

8. Comba, P. G. , "A Procedure for Detecting Intersections of Three- 
Dimensional Objects," Journal of the ACM , v. 15, p. 354-366, July 
1968. 

9. Comfort, W. T. , "Multiword List Items," Communications of the ACM , 
v. 7, p. 357-362, June 1964. 

10. Cotton, I. W. and Greatorex, J. R. , "Data Structures and Techniques 
for Remote Computer Graphics," Proceedings of the Fall Joint Computer 
Conference , v. 33, p. 533-544, 1968. 

11. Dertouzos, M. L. and Graham, H. L. , "A Parametric Graphical Display 
Technique for On-Line Use," Proceedings of the Fall Joint Computer 
Conference , v. 29, p. 201-209, 1966. 

12. Dertouzos, M. L. , "PHASEPLOT: An On-Line Graphical Display Techni- 

que," IEEE Transactions of Electronic Computers , v. EC-16, p. 

203-209, April 1967. 

13. Erickson, W. L. and Soller, T. M. , "Computer-Driven Display Systems," 
IEEE International Convention Record , part 3, p. 72-84, 1965. 



232 



14. Freeman, H. , "On the Encoding of Arbitrary Geometric Configurations," 
IRE Transactions of Electronic Computers , v. EC-10, p. 260-268, 

June 1961. 

15. Freeman, H. , "Techniques for the Digital Computer Analysis of Chain- 
Encoded Arbitrary Plane Curves," Proceedings of the National 
Electronics Conference , p. 421-432, 1961. 

16. Freeman, H. and Morse, S. P. , "On Searching a Contour Map for a 
Given Terrain Elevation Profile," Journal of the Franklin Institute , 
v. 284, p. 1-25, July 1967. 

17. Freeman, H. and Loutrel, P. P. , "An Algorithm for the Solution of the 
Two-Dimensional ’Hidden-Line' Problem," IEEE Transactions on 
Electronic Computers , v. EC-16, p. 784-790, December 1967. 

18. Galimberti, R. and Montanari, U., "An Algorithm for Hidden Line 
Elimination," Communications of the ACM , v. 12, p. 206-211, April 
1969. 

19. Gray, J. C., "Compound Data Structure for Computer Aided Design; 

A Survey," Proceedings of the 22nd ACM National Meeting , p. 355-365, 
1967 . 

20. Hagan, T. G. and Treiber, R. , "Hybrid Analog/Digital Techniques 

for Signal Processing Applications," Proceedings of the Spring Joint 
Computer Conference , v. 28, p. 379-388, 1966. 

21. Hagan, T. G. , Nixon, R. J., and Schaefer, L. J., "The Adage Graphics 
Terminal," Proceedings of the Fall Joint Computer Conference , v. 33, 
p. 747-755, 1968. 

22. Hurwitz , A., Citron, J. P. , and Yeaton, J. B., "GRAF: Graphic 

Additions to FORTRAN," Proceedings of the Spring Joint Computer 
Conference , v. 30, p. 553-557, 1967. 

23. Johnson, T. E., "A Computer Program for Drawing in Three Dimensions," 
Proceedings of the Spring Joint Computer Conference, v. 22, p. 
347-353, 1963. 

24. Kubert , B., Szabo, J., and Giulieri, S., "The Perspective Repre- 
sentation of Functions of Two Variables," Journal of the ACM , v. 15, 
p. 193-204, April 1968. 

25. Kulsrud, H # E., "A General Purpose Graphic Language," Communications 
of the ACM , v. 11, p. 247-254, April 1968. 

26. Long, C. A. and Gray, J. C., "ASP--A Ring Implemented Associative 
Structure Package," Communications of the ACM , v. 11, p. 550-555, 
August 1968. 

27. Luh , J. Y. S. and Krolak, R. J., "A Mathematical Model for Mechani- 
cal Part Description," Communications of the ACM , v. 8, p. 125-129, 
February 1965. 



233 



28 . 



Massachusetts Institute of Technology, Lincoln Lab, Report TR-296 , 
SKETCHPAD: A Man-Machine Graphical Communication System , by I. E. 

Sutherland, January 1963. 

29. Massachusetts Institute of Technology, Lincoln Lab, Report TR-315, 
Machine Perception of Three-Dimensional Solids , by L. G. Roberts, 

May 1963. 

30. Massachusetts Institute of Technology, Lincoln Lab, Report TR-405 , 
On-Line Graphical Specification of Computer Procedures , by W. R. 
Sutherland, 1966. 

31. McLane, R. C. and Wolf, J. D. , ’’Symbolic and Pictorial Displays for 
Submarine Control,” IEEE Transactions on Human Factors in Engineer- 
ing , v. HFE-8, p. 148-158, June 1967. 

32. Morse, S. P. , "A Mathematical Model for the Analysis of Contour- 
Line Data,” Journal of the ACM , v. 15, p. 205-220, April 1968. 

33. Morse, S. P. , "Computer Storage of Contour-Map Data,” Proceedings of 
the 23rd ACM National Meeting , p. 45-51, 1968. 

34. Morse, S. P. , "Concepts of Use in Contour Map Processing,” Communi- 
cations of the ACM , v. 12, p. 147-152, March 1969. 

35. Naval Postgraduate School Computer Facility Technical Note No. 
0211-03, Plotting Package for IBM 360/67 , by P. C. Johnson, February 
1969. 

36. Newman, W. M. , "A System for Interactive Graphical Programming,” 
Proceedings of the Spring Joint Computer Conference , v. 32, p. 

47-54, 1968. 

37. Pfaltz, J. L. and Rosenfeld, A., "Computer Representation of Planar 
Regions by Their Skeletons,” Communications of the ACM , v. 10, p. 
119-125, February 1967. 

38. Puckett, H. R. , "Computer Method for Perspective Drawing,” Journa 1 
of Spacecraft and Rockets , v. 1, p. 44-48, January 1964. 

39. Rapkin, M. D. and Othman , M. A., ’’Stand -Alone/Remote Graphic 
System,” Proceedings of the Fall Joint Computer Conference , v. 33, 
p. 731-746, 1968. 

40. Roberts, L. G., Graphical Communication and Control Languages , 
Massachusetts Institute of Technology Lincoln Lab Reprint MS 1173, 
November 1964 (AD 626882) . 

41. Rome Air Development Center Report TR-67-310, Promenade - -An On-Line 
Pattern Recognition System , by G. H. Ball and D. J. Hall at Stanford 
Research Institute, September 1967 (AD 822174). 

42. Ross, D. T. , "The AED Approach to Generalized Computer-Aided 
Design,” Proceedings of the 22nd ACM National Meeting , p. 367-385, 
1967 . 



234 



43 . 



Sproull, R. F. and Sutherland, I. E., "A Clipping Divider/ 1 Pro- 
ceedings of the Fall Joint Computer Conference , v. 33, p. 765-775, 
1968. 

44. Sutherland, I. E., "A Head-Mounted Three Dimensional Display/' 
Proceedings of the Fall Joint Computer Conference , v. 33, p. 757- 
764, 1968. 

45. Thomas, E. M. , "GRASP--A Graphical Service Program," Proceedings of 
the 22nd National Meeting , p. 395-402, 1967. 

46. Tilton, H. B. , "Principles of 3-D CRT Displays," Control Engineering , 
p. 74-78, February 1966. 

47. Van Dam, A. and Evans, D., "A Compact Data Structure for Storing, 
Retrieving and Manipulating Line Drawings," Proceedings of the 
Spring Joint Computer Conference , v. 30, p. 601-610, 1967. 

48. Vlahos, P. , "The Three-Dimensional Display, Its Cues and Techniques," 
Information Display , p. 10-20, November/December 1965. 

49. Weiss, R. A., "BE VISION, A Package of IBM 7090 FORTRAN Programs to 

Draw Orthographic Views of Combinations of Plane and Quadric Sur- 
faces ," Jkmrn^^ v. 13, p. 194-204, April 1966. 

50. Wright Air Development Center Technical Note 55-747, Coordinate 
Systems for Solving the Three-Dimensional Flight Equations , by 

R. M. Howe at the University of Michigan, June 1956, (AD 111582). 

51. Wylie, C., Romney, G. , Evans, D., and Erdahl, A., "Half-Tone 
Perspective Drawings by Computer," Proceedings of the Fall Joint 
Computer Conference , v. 31, p. 49-58, 1967. 

52. Zajac, E. E., "Computer-Made Perspective Movies as a Scientific 
and Communication Tool," Communications of the ACM , v. 7, p. 

169-170, March 1964. 



235 



INITIAL DISTRIBUTION LIST 



No. Copies 

1. Defense Documentation Center 20 

C a me ron Station 

Alexandria, Virginia 22314 

2. Library, Code 0212 2 

Naval Postgraduate School 

Monterey, California 93940 

3. Naval Ordnance Systems Command 1 

Department of the Navy 

Washington, D. C. 20360 

4. Associate Professor M. L. Cotton 1 

Code 52Cc 

Department of Electrical Engineering 
Naval Postgraduate School 
Monterey, California 93940 

5. Lieutenant Robert Bruce Desens, USN 1 

468 Beacon Hill Circle 

Norfolk, Virginia 23302 

6. Naval Ordnance Systems Support Office, Altantic 1 

Bldg 62, Norfolk Naval Shipyard 

Portsmouth, Virginia 23709 

7. Computer Laboratory, Code 52Ec 1 

Department of Electrical Engineering 

Naval Postgraduate School 
Monterey, California 93940 

8. Computer Facility, Code 0211 1 

Naval Postgraduate School 

Monterey, California 93940 



236 



Securit^^la^ 



DOCUMENT CONTROL DATA • R & D 

(Security claaalUcalion etjltla, body ot abstract and indexing annotation must be entered when the overall report Is classified 



±. 



I ORIGINATING ACTIVITY (Corporate author) 

Naval Postgraduate School 
Monterey , California 



2i. REPORT SECURITY CLASSIFICATION 

Unc lassif ied 



2b. GROUP 



3 REPORT TITLE 



Computer Processing for Display of Three-Dimensional Structures 



4 DESCRIPTIVE NOTES (Type of report anc^ inclusive dates) 

Electrical Engineers Thesis; October 1969 



5 . au THOR(S) (Firat name, middle initial, teat name) 

Robert Bruce Desens 



6 REPORT DATE 



October 1969 



7a. TOTAL NO. OF PAGES 



236 



76. NO. OF REFS 

52 



«a. CONTRACT OR GRANT NO- 



b. PROJEC T NO. 



9a. ORIGINATOR’S REPORT NUM B E R(5) 



9b. OTHER REPORT NO(S) (Any other numbera that may be aaaianed 
thia report) 



10. DISTRIBUTION STATEMENT 



This document has been approved for public release and sale; 
its distribution is unlimited. 



11. SUPPLEMENT ARY NOTES 



13. ABSTRACT 



12. SPONSORING MILITARY ACTIVITY 

Naval Postgraduate School 
Monterey, California 93940 



The field of computer graphics applied to three-dimensional space is 
introduced through a discussion of perspective transformations, data 
structure, contour lines, and the problem of hidden-line removal. The 
transformation of three-dimensional coordinates into two-dimensional picture- 
plane coordinates is developed for twelve degrees of freedom, allowing the 
simultaneous movement and rotation of both the object under view and the 
observer. Basic concepts and requirements for the structure of data and 
ideas for the use of contour lines are discussed as a relative part of the 
field of three-dimensional computer graphics. An algorithm for the removal 
of hidden lines is explained for the case where the objects under view can 
be assumed to be constructed of bounded plane surfaces. 



DD .'““..1473 (PAGE 1) 



NOV 

S/N 0101 -807-681 1 



237 



Security Classification 



A- 3 1408 




Security Classification 



l A 

KEY WORDS 


LINK A 


LINK B 


LINK C 


ROLE 


W T 


ROLE 


W T 


ROLE 


WT 


Perspective transformation 
Three-dimensional computer graphics 
Contour lines 
Hidden-line removal 
Graphics data structure 















DD ,'°“„1473 ( BACK) 



1 1 * <• 0 7 • r. 1 1 | 



238 



Security Classification 



A- 3 M 09 










I 



